VB编写修改用户密码，错误3001

来源：百度知道编辑：UC知道时间：2024/09/24 04:39:45

我编了一个修改密码的程序，但在运行时会出现错误3001。源代码是：Private Sub Command1_Click()
Dim rs_change As New ADODB.Recordset
Dim sql As String
If Trim(text1.Text) <> Trim(text2.Text) Then
MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
text1.SetFocus
text1.Text = ""
text2.Text = ""
Else
sql = "select * from 图书系统管理 where 用户名='" & userID & "'"
rs_change.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_change.Fields(1) = text1.Text
rs_change.Update
rs_change.Close
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
问题出现在rs_change.Open sql, conn, adOpenKeyset, adLockPessimistic上，或许其它地方还有点问题。请高手指点一下

Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim S As String, S1 As String

Private Sub Command1_Click()
S = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\Up.accdb"
Cnn.Open S
Rs.CursorLocation = adUseClient
S1 = "select * from ID where ID='" & "张三" & "'"
Rs.Open S1, Cnn, 3, 3
If Trim(Text2) <> Trim(Text1) Then
MsgBox "确认密码不一样"
Rs.Close
Cnn.Close
Else
Rs.Fields(1) = Text1
MsgBox "密码修改成功"
Rs.Update
Rs.Close
Cnn.Close
End If
End Sub

在vb中怎么实现用户密码修改？ VB编写有什么错误 vb编写一个记事本的错误求助:怎样用Microsoft Visual Studio 编写个用户密码修改页面?用c#最好详细点用VB编写一个修改服务或者注册表的程序如何用VB编写一个修改IP的软件？如何修改一个VB编写的软件的文本框高手来看:VB编写数据库连接组件(DLL)时程序错误? vb：遇到某些语句错误，跳过语句怎样编写？ asp修改用户密码问题