修改密码时需要显示用户名和旧密码，并判断输入的旧密码是否是当前用户的密码。修改密码成功之后需要重新登录。

加一个label框，来显示当前用户名。

Private Sub Form_Load()
    Label4.Caption = "当前用户名为：" & UserName
End Sub

 从数据库中查询当前用户名和旧密码，并判断输入的旧密码是否正确。同时判断新旧密码不一致。

'进入数据库进行查询当前用户名和密码 
txtSQL = "select * from [user_Info] where user_ID = '" & UserName & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        '验证原密码是否正确
        If Trim(txtoldPassword.Text) = Trim(mrc.Fields(1)) Then
        Else
            MsgBox "旧密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtoldPassword.SetFocus
            txtoldPassword.Text = ""
            txtPassword1.Text = ""
            txtPassword2.Text = ""
            Exit Sub
        End If

        '验证新密码与原密码不能一致
        If Trim(txtoldPassword.Text) <> Trim(txtPassword1.Text) Then
        Else
            MsgBox "新密码与旧密码不能一致，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtPassword1.SetFocus
            txtPassword1.Text = ""
            txtPassword2.Text = ""
            Exit Sub
        End If

密码修改正确，需要重新登录。

    If mrc.RecordCount = 0 Then
            MsgBox "记录为空，请先添加！", vbOKOnly + vbExclamation, "警告"
            mrc.Close
            Set mrc = Nothing
            frmMain.Show
        Else
            mrc.Fields(1) = txtPassword2.Text
            mrc.Update
            mrc.Close
            MsgBox "密码修改成功，请重新登录！", vbOKOnly + vbExclamation, "修改密码"

            Unload Me
            Unload frmMain
            Unload frmLogin
            frmLogin.Show
     End If