求大神指点

Question

1、代码
' Dim strSql As String ' 声明变量
        objConn.Open()
        '  Dim bianhao(10) As OleDbParameter("bianhao",OleDbType.char)
        '   Dim xingming As OleDbParameter("@ xingming",OleDbType.char.10)
        Dim strdel As String = "Delete From 工资表 Where 姓名 = " & TextBox2.Text.        Dim objcmd As New OleDbCommand(strdel, objConn)
        objcmd.ExecuteNonQuery()
        objConn.Close()
        objDSet.Tables("工资表").Rows(myBind.Position).Delete() '从Dataset中删除当前记录
        objDSet.Tables("工资表").AcceptChanges() '确认删除
错误： objcmd.ExecuteNonQuery()-》至少一个参数没有被指定值。

Answer 1

Dim strdel As String = "Delete From 工资表 Where 姓名 = '" & TextBox2.Text & "'"

Answer 2

改完之后又出现错误：objDSet.Tables("工资表").Rows(myBind.Position).Delete() -》》未将对象引用设置到对象的实例。

Answer 3

objcmd.ExecuteNonQuery()你这里已经删除了另外你打印出
objDSet.Tables.Count看是什么
objDSet.Tables("工资表").Rows.Count看是什么
myBind.Position的值都是多少