ใช้ คำสั่ง TableAdapter.Update แล้วไม่สามารถบันทึกข้อมูลลง DB ได้ครับ

 Try
            Me.Validate()
            Me.MemberBindingSource.EndEdit()
            Me.MemberTableAdapter.Update(Me.RentbookDataSet.Member)
            MsgBox("Update successful")

        Catch ex As Exception
            MsgBox("Update failed")
        End Try

connectData()
        Dim Sql As String
       Sql = "INSERT INTO Member(Name,LastName,Address,Phone,IDCard)VALUES ("
        Sql += "'" & txtName.Text & "',"
        Sql += "'" & txtLastName.Text & "',"
        Sql += "'" & txtAddress.Text & "',"
        Sql += "'" & txtPhone.Text & "',"
        Sql += "'" & txtIDCard.Text & "'"
        Sql += ")"
        ExecuteSQL(Sql)
        MessageBox.Show("บันทึกเรียบร้อยแล้ว", "ยืนยัน")