Hi, I would like to ask if there is any problem with my coding because when i run it gave me an error saying object variable or With block variable not set. Then when i click debug it take me to the .movefirst. It's my coding something wrong? Can someone help me out? Thanks.

With adoSearch.Recordset
.MoveFirst
.Find "ID = '" & Access1.Text & "'"

If Not .EOF Then
If ![Password] = Access2.Text Then
gstrEmpID = Access1.Text
frmMain.Show
Unload Me
Exit Sub
End If
End If
End With