ACCESSでパスワード変更フォームの作り方

Private Sub btn_passchange_Click()
On Error GoTo Err_btn_passchange_Click

    If IsNull(Me!cmb_syainCD) Then
        MsgBox "社員CDを選んでください"
        Me!cmb_syainCD.SetFocus
    Else
        If IsNull(DLookup("氏名", "Q_cmbsyain", "社員CD = " & Me!cmb_syainCD)) Then
            Me!txt_syainName = ""
            Me!txt_Pass = ""
            Me!txt_kengen = ""
            MsgBox "社員CDを確認してください"
            Me!cmb_syainCD.SetFocus
        Else
            If Me!txt_Pass <> DLookup("password", "SYS社員", "社員CD = " & Me!cmb_syainCD) Then
                MsgBox "パスワードが違います", vbOKOnly
            Else
               DoCmd.OpenForm "F_Pass"
            End If
        End If
    End If
        
Exit_btn_passchange_Click:
    Exit Sub
Err_btn_passchange_Click:
    MsgBox Err.Description
    Resume Exit_btn_passchange_Click
End Sub

Private Sub btn_change_Click()
On Error GoTo Err_btn_change_Click

'///チェック

If IsNull(Me!txt_NewPass) Or IsNull(Me!txt_NewPass1) Then
    MsgBox "パスワードを2つとも入力してください"
    Me!txt_NewPass.SetFocus
    Exit Sub
    
    Else
        If Me!txt_Pass = Me!txt_NewPass Then
        MsgBox "パスワードが前と同じです　違うパスワードを入れてください"
        Me!txt_NewPass.SetFocus
        Exit Sub
    Else
        If Me!txt_NewPass <> Me!txt_NewPass1 Then
        MsgBox "同じパスワードを入れてください"
         Me!txt_NewPass.SetFocus
    Exit Sub
        
        End If
    End If
End If

'// パスワードをマスタに更新

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Q_kosin"
    DoCmd.SetWarnings True
    MsgBox "パスワードを変更しました"
Exit_btn_change_Click:
    Exit Sub
    
Err_btn_change_Click:
    MsgBox Err.Description
    Resume Exit_btn_change_Click
End Sub