You should really take the time to give objects meaningful names. "Command1" is a poor name - what is its purpose? If the name was "btnCheckLogIn" it tells you a lot more... yes?
If the code for "Command1" is actually what you posted, you are missing a couple of "End If" statements:
Code:
Private Sub Command1_Click()
If IsNull(Me.txtLoginID) Then
MsgBox "Please enter LoginID", vdInformation, "LoginID Required"
Me.txtLoginID.SetFocus
Else
'process the job
If (IsNull(DLookup("UserLogin", "tblUser", "UserLogin ='" & Me.txtLoginID.Value & "'"))) Or _
(IsNull(DLookup("password", "tblUser", "Password = '" & Me.txtPassword.Value & "'"))) Then
MsgBox "Incorrect LoginID or Password"
Else
'MsgBox "Login and Password Correct"
DoCmd.OpenForm "AddEmployee"
End If
End If
End Sub
See if that helps......