数据更新问题

Dim num As Integer
Dim cmd As ADODB.Command
Dim rec As ADODB.Recordset
Dim conn As ADODB.Connection
Dim strmessage As String
Dim strSql As String
Dim strcnn As String
strSql = "select * from user"
strcnn = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\user.mdb"
Set conn = New ADODB.Connection
conn.Open strcnn
Set rec = New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandText = strSql
Set rec = cmd.Execute
Do While Not rec.EOF
     num = rec.AbsolutePosition
     If modifyid = num Then
        'rec.Fields!idname = Trim(name2.Text)
        'rec.Fields!pwd = Trim(pwd.Text)
        'With rec
        '     .Fields!idname = Trim(name2.Text)
        '     .Fields!pwd = Trim(pwd.Text)
        'End With
        rec!idname = Trim(name2.Text)
        rec!pwd = Trim(pwd.Text)
        strmessage = "保存修改结果吗？"
        If MsgBox(strmessage, vbYesNo) = vbYes Then
            rec.Update
            name2.Text = ""
            pwd.Text = ""
            chkpwd.Text = ""
        Else
           rec.CancelUpdate
           name2.Text = ""
           pwd.Text = ""
           chkpwd.Text = ""
        End If
     Exit Do
     End If
     rec.MoveNext
Loop
  rec.Close
  conn.Closerun-time error'3251'
对象或提供者不能执行所需的操作( rec!idname = Trim(name2.Text)
                                rec!pwd = Trim(pwd.Text))
修改数据不成功