整體內容為兩部分

判斷文字框是否為空`

If txtoldpwd.Text = "" Then
        MsgBox "請輸入原口令！", vbOKOnly + vbExclamation, "溫馨提示"
        txtoldpwd.SetFocus

內容判斷

• 與庫中原密碼進行判斷

If Trim(txtoldpwd.Text) <> Trim(mrc.Fields(1)) Then
        MsgBox "舊口令輸入不正確，請重新輸入！", vbOKOnly + vbExclamation, "溫馨提示"
        
 

注意，如果此步驟出現3021錯誤，顯示沒有值，看以看一下登陸頁面的UserName = Trim(txtUsername.Text)是否正確進行了傳值，。如果此步驟沒有正確進行傳值則txtSQL = "select * from User_Info where userID='" & Trim(UserName) & "'"中的UserName值顯示空。報錯不要糾結當前頁面也可能是之前的步驟有問題

• 新密碼與原密碼進行判斷

If Trim(txtnewpwd.Text) = Trim(txtoldpwd.Text) Then
            MsgBox "新口令與舊口令相同，請核對後輸入！", vbOKOnly + vbExclamation, "溫馨提示"
 

• 兩次核對密碼

If Trim(txtnewpwd.Text) <> Trim(txtpass.Text) Then
                MsgBox "兩次輸入新口令不符，請核對！", vbOKOnly + vbExclamation, "溫馨提示"

基本就收工啦