Private Sub Command1_Click()Dim rs_chang 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_chang.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_chang.Fields(1) = Text1.Text
rs_chang.Update
rs_chang.Close
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub
答案：简单解释了一下，不理解的可以继续问Private Sub Command1_Click()
Dim rs_chang As New ADODB.Recordset 定义变量
Dim sql As String 定义变量
If Trim(Text1.Text) <>Trim(Text2.Text) Then 如果文本框1的内容 不等于文本框2的
MsgBox "密码不一致！", vbOKOnly + vbExclamation, "" 提示密码不一致
Text1.SetFocus 文本框1等到焦点
Text1.Text = "" 文本框1为空
Text2.Text = "" 文本框2为空
Else 如果文本框1的内容 等于文本框2的
sql = "select * from 系统管理 where 用户名='" & userID & "'" sql字符串：从系统管理表中查用户名=userid内容的记录
rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic 打开记录
rs_chang.Fields(1) = Text1.Text 密码字段赋值为 text1的内容，最好加个 trim(Text1.Text)
rs_chang.Update 更新记录
rs_chang.Close 关闭记录
MsgBox "密码修改成功", vbOKOnly + vbExclamation, "" 提示密码修改成功
Unload Me 关闭form窗口
End If
