MyKey = 3 With Me.Recordset .FindFirst "ID=" & MyKey If .NoMatch Then MsgBox "Not found" End If End With