Private Sub txtpwd_KeyPress(KeyAscii As Integer)
If KeyAscii = vbEnter Then
    If Len(Trim(txtlogin)) > 0 And Len(Trim(txtpwd)) > 0 Then
        If CheckPwd(txtlogin, txtpwd) = "ok" Then
            MsgBox "Password ok"
        Else
            MsgBox "Wrong password or Login not found."
        End If
    Else
        MsgBox "Login and password should not be blank"
    End If
End If
End Sub
 
Private Function CheckPwd(cLogin As String, cPwd As String)
'in my case i will use dao. you probably using ado just convert it
Dim rs As Recordset, ret As String
Set rs = opendatabase("c:\temp\login.mdb").openrecordset("select * from tbllogin where ucase(trim(logname)) = '" & UCase(Trim(cLogin)) & "'")
If rs.RecordCount <> 0 Then
    If UCase(Trim(rs("pword"))) = UCase(Trim(cPwd)) Then
        ret = "ok"
    Else
        ret = "wrong"
    End If
Else
    ret = "wrong"
End If
rs.Close: CheckPwd = ret
End Function

Private Sub cmdMaintenanceSwitchboard_Click()
 
    'check for null password
    If IsNull(Trim(txtUser)) Then
        MsgBox "User Name required.", vbExclamation
        txtUser.SetFocus
        Exit Sub
    End If
 
    'check for null password
    If IsNull(Trim(txtPassword)) Then
        MsgBox "Password required.", vbExclamation
        txtPassword.SetFocus
        Exit Sub
    End If
 
    'To use the following code, open the code window for a form.
    'Under the Tools/References menu, enable the "Microsoft DAO 3.6 Object Library"
    'and some may have to disable the "Microsoft ActiveX Data Objects Library"
 
    'declare variables (tempRecordSet becomes an object variable)
    Dim tempRecordSet As Recordset, Password As String
 
    'open the AdminUsers table
    '(recordset object variables allow access to records and fields in tables and queries.
    'This modified version opens a recordset via a SQL statement to pull the record (if any) where the field matches the txtUser field in the form.
    'Since the field is a primary key, there should only be one record if any matches are found.
    Set tempRecordSet = CurrentDb.OpenRecordset("select * from AdminUsers where UCase(trim(UserID)) = '" & UCase(Trim(txtUser)) & "'")
 
    'retrieve the Password field from the AdminUsers table if the UserID matches the txtUser Field
    If tempRecordSet.RecordCount <> 0 Then
        Password = UCase(Trim(tempRecordSet("Password")))
    End If
 
    'close the recordset and release the recordset object variable
    tempRecordSet.Close
    Set tempRecordSet = Nothing
 
    'check the password
    If Password <> UCase(Trim(txtPassword)) Then
       MsgBox "Incorrect password", vbExclamation
    Else
        'passwords match, allow the user to the maintenance switchboard
        MsgBox "Congratulations! Right Password!!!", vbExclamation
    End If
    txtPassword = Empty
End Sub