Me.Recordset.Find "ID = " & lID, , adSearchForward If Me.Recordset.EOF Then Me.Recordset.Find "ID = " & lID, , adSearchBackward End If