呃，我又来了。笨人只能笨办法。关于修改登陆密码的那点事。

这是我刚做过的一个修改密码的，请参考一下吧

'确定修改密码
Private Sub confirmModify_Click()
    Dim rs As New ADODB.Recordset
    Dim str As String
    Dim num As Integer
    str = "select * from 用户登记表 where 用户名='" & Me.UserName
    str = str & "' and 用户密码='" & Me.oldpass & "'"
    Set rs = GetRS(str)                                       '查询数据库
    num = rs.RecordCount  'rs(0)                                               '得到记录总数
    If IsNull(Me.UserName) Then
    MsgBox ("请输入用户名称！")
    Me.UserName = ""
    Me.oldpass = ""
    Me.newpass1 = ""
    Me.newpass2 = ""
    ElseIf IsNull(Me.oldpass) Then
    MsgBox ("请输入当前用户密码！")
    Me.UserName = ""
    Me.oldpass = ""
    Me.newpass1 = ""
    Me.newpass2 = ""
    ElseIf num <> 1 Then                                      '判断是否正确
    MsgBox ("没有这个用户，或者密码错误！")
    Me.UserName = ""
    Me.oldpass = ""
    Me.newpass1 = ""
    Me.newpass2 = ""
    ElseIf IsNull(Me.newpass1) Then
    MsgBox ("请输入新密码")
    ElseIf IsNull(Me.newpass2) Then
    MsgBox ("请输入确认新密码")
    ElseIf num = 1 Then      '查询到用户名和密码正确
    If Me.newpass1 = Me.newpass2 Then
    rs.Fields(2) = Me.newpass1
    rs.Update
    MsgBox ("密码修改成功！")
    Else
    MsgBox ("两次输入的新密码不匹配，请重新输入！")
    Me.newpass1 = ""
    Me.newpass2 = ""
    End If
    End If
Exit_cmdLogin_Click:
    Exit Sub
Err_cmdLogin_Click:
    MsgBox (Err.Description)
    Resume Exit_cmdLogin_Click
End Sub