Thank you!
It's great! :)))
But this drive me, somehow, in another problem. On the else I had a messagebox , in case the password wasn't right.
Now I modified the code this way:
If Me.txtpassword.Value = DLookup("Password", "tblUsers", "[lngEmpID]=" & Me.cboUser.Value) Then
If...