An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in syste

[lily86]

i'm very new so i hope all of u can help me. when i debug my webforms this error occur "An unhandled exception of type 'System.Data.Sq lClient.SqlExce ption' occurred in system.data.dll
Additional information: System error." pls help me solve the problem...thank s..

my code:

Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Globalization
Imports System.Threading

Public Class PhoneBook
    Inherits System.Windows.Forms.Form

    Private lsFORMTEXT As String
    Private lsFINDNAME1, lsFINDNAME2 As String
    Private lsMODE1 As String
    Private lsCONSTRSIM, lsCONSTRCSV As String
    Private lsUSRCODE As String
    Private lsSQL As String
    Private oBUTTON As Object
    Private oMENU As Object
    Private liBUTTON As Integer
    Private liMENU As Integer

    Private lsSQLSTR As String
    Private lsSQLCON As SqlConnection

    Private lsSQLCMD1 As SqlCommand
    Private lsSQLCBL1 As SqlCommandBuilder
    Private lsDA1 As SqlDataAdapter
    Private lsDS1 As DataSet
    Private lsDT1 As DataTable
    Private lsDR As DataRow

    Private lsTABLE1 As String = "PhoneBook"
    Private lsKEY As String = "Name"

    Private cls1 As New clsCon

    Private liLOOP1 As Integer
    Private liCR As Integer
    Private liANS As Integer

    Private lsTEXTBOX(2) As TextBox
    Private lsTEXTBOXNUMBER(0) As TextBox
    Private lsTEXTBOXINT(2) As TextBox
    Private lsCOMBOBOX(1) As ComboBox

    Private cTEXTBOX(2) As String
    Private cTEXTBOXNUMBER(0) As String
    Private cTEXTBOXINT(2) As String
    Private cCOMBOBOX(1) As String

    Private liTEXTBOX As Integer = 2
    Private liTEXTBOXNUMBER As Integer = 0
    Private liTEXTBOXINT As Integer = 2
    Private liCOMBOBOX As Integer = 1

    Private lsBUTTON(0) As Object
    Private lsMENU(0) As Object

    Private Sub PhoneBook_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lsCONSTRCSV = cls1.SetupText()
        Me.Text = lsFORMTEXT
        lbl_gsmode1.Text = lsMODE1
        lsMODE1 = "VIEW"
        IniObject()
        DataPopulate()
        DataBindClear()
        DataBind()
        DataDisplay()
    End Sub

    Private Sub IniObject()
        lsTEXTBOX(1) = txt_Name
        lsTEXTBOX(2) = txt_Address
        lsTEXTBOXINT(1) = txt_Phone
        lsTEXTBOXINT(2) = txt_Code
        lsCOMBOBOX(1) = cbo_State

        cTEXTBOX(1) = "Name"
        cTEXTBOX(2) = "Address"
        cTEXTBOXINT(1) = "PhoneNumber"
        cTEXTBOXINT(2) = "PostalCode"
        cCOMBOBOX(1) = "State"

    End Sub

    Private Sub DataPopulate()
        lsSQLSTR = "SELECT * FROM" & lsTABLE1 & "ORDER BY " & lsKEY
        lsSQLCON = New SqlConnection(lsCONSTRCSV)
        Dim lsSQLCMD1 As New SqlCommand(lsSQLSTR, lsSQLCON)
        lsDA1 = New SqlDataAdapter(lsSQLCMD1)
        Dim lsSQLCMB1 As New SqlCommandBuilder(lsDA1)
        lsSQLCMB1.GetUpdateCommand()  -->'error at here'

        lsDS1 = New DataSet
        lsDT1 = New DataTable
        lsDA1.Fill(lsDS1, lsTABLE1)
        lsDT1 = lsDS1.Tables(0)
        lsDT1.DefaultView.Sort = lsKEY
    End Sub

    Private Sub DataBindClear()
        cls1.Get_DataBindClear(liTEXTBOX, lsTEXTBOX, cTEXTBOX, liTEXTBOXNUMBER, lsTEXTBOXNUMBER, cTEXTBOXNUMBER, liTEXTBOXINT, lsTEXTBOXINT, cTEXTBOXINT, liCOMBOBOX, lsCOMBOBOX, cCOMBOBOX)
    End Sub

    Private Sub DataBind()
        cls1.Get_DataBind(liTEXTBOX, lsTEXTBOX, cTEXTBOX, liTEXTBOXNUMBER, lsTEXTBOXNUMBER, cTEXTBOXNUMBER, liTEXTBOXINT, lsTEXTBOXINT, cTEXTBOXINT, liCOMBOBOX, lsCOMBOBOX, cCOMBOBOX, lsDT1)
    End Sub

    Private Sub DataClear()
        cls1.Get_DataClear(liTEXTBOX, lsTEXTBOX, cTEXTBOX, liTEXTBOXNUMBER, lsTEXTBOXNUMBER, cTEXTBOXNUMBER, liTEXTBOXINT, lsTEXTBOXINT, cTEXTBOXINT, liCOMBOBOX, lsCOMBOBOX, cCOMBOBOX)
    End Sub

    Private Sub DataDisplay()
        cls1.Get_DataDisplay(liTEXTBOX, lsTEXTBOX, cTEXTBOX, liTEXTBOXNUMBER, lsTEXTBOXNUMBER, cTEXTBOXNUMBER, liTEXTBOXINT, lsTEXTBOXINT, cTEXTBOXINT, liCOMBOBOX, lsCOMBOBOX, cCOMBOBOX, lsMODE1)
        lsTEXTBOX(1).Enabled = IIf(lsMODE1 = "VIEW" Or lsMODE1 = "MODIFY", False, True)
    End Sub

    Private Sub btn_back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_back.Click
        If Me.BindingContext(lsDT1).Position <> 0 Then
            Me.BindingContext(lsDT1).Position -= 1
        End If
    End Sub

    Private Sub btn_next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_next.Click
        If Me.BindingContext(lsDT1).Position < lsDT1.Rows.Count - 1 Then
            Me.BindingContext(lsDT1).Position += 1
        End If
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_File_Close.Click
        Me.Close()
    End Sub

    Private Sub btn_Find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Find.Click
        Try
            Dim lsHT(1) As Object
            Dim lsDT1c As New DataTable
            lsHT(0) = "1"
            lsHT(1) = Trim("Name") & "01001"
            lsDT1c = lsDT1.Copy

            Dim frmFind As New foFIND(lsDT1c, lsHT, lsFINDNAME1)
            lsFINDNAME1 = lsTEXTBOX(1).Text
            frmFind.ShowDialog()
            lsFINDNAME1 = cls1.FindPro
            If Len(Trim(lsFINDNAME1)) > 0 Then
                Dim lsFINDKEY(1) As Object
                lsFINDKEY(0) = "1"
                lsFINDKEY(1) = Trim(lsFINDNAME1)
                liCR = cls1.GetRecordPosition(lsDT1, lsKEY, lsFINDKEY)
                If liCR >= 0 Then
                    DataBindClear()
                    DataBind()
                    DataDisplay()
                    Me.BindingContext(lsDT1).Position = liCR
                End If
            End If
            lsDT1c.Dispose()
        Catch exp As Exception
            MsgBox(exp.Message)
        End Try
    End Sub

    Private Sub btn_modify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Modify.Click
        lsMODE1 = "MODIFY"
        lbl_gsmode1.Text = lsMODE1
        DataBindClear()
        DataDisplay()
        GetTwnReg()
        lsTEXTBOX(2).Focus()
    End Sub

    Private Sub btn_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Add.Click
        lsMODE1 = "ADD"
        lbl_gsmode1.Text = lsMODE1
        DataClear()
        DataBindClear()
        DataDisplay()
        GetTwnReg()
        lsTEXTBOX(1).Focus()
    End Sub

    Private Sub GetTwnReg()
        If lsMODE1 = "ADD" Or lsMODE1 = "MODIFY" Then
            txt_Name.Visible = True
            txt_Address.Visible = True
            txt_Phone.Visible = True
            txt_Code.Visible = True
            cbo_State.Visible = True
        Else
            txt_Name.Visible = False
            txt_Address.Visible = False
            txt_Phone.Visible = False
            txt_Code.Visible = False
            cbo_State.Visible = False
        End If
    End Sub

    Private Sub btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Delete.Click
        Try
            lsMODE1 = "DELETE"
            lbl_gsmode1.Text = lsMODE1
            liCR = Me.BindingContext(lsDT1).Position
            liANS = MsgBox("Confirm to delete " & lsDT1.Rows(liCR).Item(lsKEY) & "?", MsgBoxStyle.YesNo, "System Dialog")
            If liANS = 6 Then
                lsDT1.Rows(liCR).Delete()
                lsDA1.Update(lsDS1, lsTABLE1)
            End If
        Catch exp As Exception
            MsgBox(exp.Message)
            lsDT1.RejectChanges()
            Exit Sub
        Catch exp As SqlException
            MsgBox(exp.Message)
            lsDT1.RejectChanges()
            Exit Sub
        End Try
        lsMODE1 = "VIEW"
        lbl_gsmode1.Text = lsMODE1
        DataDisplay()

    End Sub
End Class

[Plater]

Well I would think that the error message woul tell you more, as well as giving you the line number that caused the error.
I will say that you SQL SELECT statement looks like its missing some spaces (like after the FROM, youwould have like FROMmyTableName instead of FROM myTableName)

[Curtis Rutland]

Please enclose your posted code in [CODE] [/CODE] tags (See How to Ask a Question).

This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.

Please use [CODE] [/CODE] tags in future.

MODERATOR