thanks man finally something that looks right but still i have an error
Private Sub Command7_Click()
If DLookup("Password", "WorkerT", "WorkerNumber = '" & Me.UserName & "'") = Me.Password Then
MsgBox "good"
Else
MsgBox "Your userid or password is invalid. Please try again.", vbOKOnly...