พี่ๆครับอยากจะขอความช่วยเหลือในการเพิ่มข้อมูลลงฐานข้อมูลหน่อยครับคือไปดูตัวอย่างมาบ้างเเล้วครับเเต่ยังงงอยู่เลยข้อความช่วยเหลือหน่อยครับ

Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click
        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, ConStr As String

        strConnString = "Server=localhost;User Id=root; Password=root; Database=Account; Pooling=false"

        Sql = "INSERT INTO Account(outstanding,Date,List,Money,Comment)" & _
        " VALUES " & _
        " ('" & Me.TextID.Text & "','" & Me.CreateDate.Text & "','" & Me.TextBoxList.Text & "', " & _
        " '" & Me.TextBoxmounny.Text & "','" & Me.TextBoxComment.Text & "')"

        objConn.ConnectionString = strConnString
        objConn.Open()
        With objCmd
            .Connection = objConn
            .CommandText = ConStr
            .CommandType = CommandType.Text
        End With

        Me.DataGridView1.Visible = False

        Try
            objCmd.ExecuteNonQuery()
            Me.TextID.Text = "Record Inserted"
            Me.TextID.Visible = True
        Catch ex As Exception
            Me.TextID.Visible = True
            Me.TextID.Text = "Record can not insert Error (" & ex.Message & ")"
        End Try

        objConn.Close()
        objConn = Nothing

    End Sub

Sql = "INSERT INTO outstanding(ฟิลด์รหัสรายจ่าย,Date,List,Money,Comment)" & _
" VALUES " & _
" ('" & Me.TextID.Text & "','" & Me.CreateDate.Text & "','" & Me.TextBoxList.Text & "', " & _
" '" & Me.TextBoxmounny.Text & "','" & Me.TextBoxComment.Text & "')"

Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click
        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, ConStrSql As String

        strConnString = "Server=localhost;User Id=root; Password=root; Database=Account; Pooling=false"

        ConStrSql = "INSERT INTO outstanding(Codeoutstanding,Date,List,Money,Comment)" & _
        " VALUES " & _
        " ('" & Me.CreateDate.Text & "','" & Me.TextBoxList.Text & "', " & _
        " '" & Me.TextBoxmounny.Text & "','" & Me.TextBoxComment.Text & "')"

        objConn.ConnectionString = strConnString
        objConn.Open()
        With objCmd
            .Connection = objConn
            .CommandText = ConStr
            .CommandType = CommandType.Text
        End With

        Me.BindingNavigator1.Visible = False

        Try
            objCmd.ExecuteNonQuery()
            Me.CreateDate.Text = "Record Inserted"
            Me.CreateDate.Visible = True
        Catch ex As Exception
            Me.CreateDate.Visible = True
            Me.CreateDate.Text = "Record can not insert Error (" & ex.Message & ")"
        End Try

        objConn.Close()
        objConn = Nothing

    End Sub