一段添加记录的程序

Question

具体程序如下：   
    Dim useradd As New ADODB.Connection
    Dim rsuseradd As New ADODB.Recordset
    Dim myconstr As String
        myconstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\useradd.mdb;Persist Security Info=False"
        rsuseradd.Open myconstr, useradd, adOpenKeyset, adLockOptimistic, adCmdText
            rsuseradd.AddNew
            rsuseradd("Name") = Trim(TxtName.Text)
            rsuseradd("Position") = Trim(ComPosition.Text)
            rsuseradd("Section") = Trim(ComSection.Text)
            rsuseradd("IdNum") = Val(TxtId.Text)
            rsuseradd("Password") = Trim(TexPassword1.Text)
            rsuseradd("Note") = Trim(TxtNote.Text)
        rsuseradd .Update
        rsuseradd.Close
编译时指出语句rsuseradd.Update有错，why？

Answer 1

你SQL语句呢？
  Dim useradd As New ADODB.Connection
    Dim rsuseradd As New ADODB.Recordset
    Dim myconstr As String
加
useradd.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\useradd.mdb;Persist Security Info=False"
useradd.open
        myconstr = SQL语句
set rsuseradd =New ADODB.Recordset
        rsuseradd.Open myconstr, useradd, adOpenKeyset, adLockOptimistic, adCmdText
            rsuseradd.AddNew
            rsuseradd("Name") = Trim(TxtName.Text)
            rsuseradd("Position") = Trim(ComPosition.Text)
            rsuseradd("Section") = Trim(ComSection.Text)
            rsuseradd("IdNum") = Val(TxtId.Text)
            rsuseradd("Password") = Trim(TexPassword1.Text)
            rsuseradd("Note") = Trim(TxtNote.Text)
        rsuseradd .Update
        rsuseradd.Close