Sorry for the repost. I am using
Private Sub txtID_AfterUpdate()
Dim rst As Recordset, db As database
Set db = GREAT2
Set rst = db.openrecordset & _
(GREAT2,dbopentable)
rst.Index = "1EID" 'employeeid
rst.Seek "=", "Main![txtID]"
If rst.nomatch = False Then
MsgBox "No employees found."
Exit...