Control de Objetos.

Hola!..
¿Cómo puedo hacer que cuando compare un dato contra una consulta de una tabla, por medio de código, pueda controlar que si no encuentra el dato a comparar en la tabla, no truene, sino que mande un mensaje que yo pueda editar?..
O sea.. Tengo este código..
Private Sub tarjcred02_Enter()
Dim Result As Object
Dim Sql As String
Dim Dato
Sql = "SELECT bines, para FROM tcbines WHERE bines = '" & tarjcred01.Value & "';"
Set db = CurrentDb()
Set Result = db.openrecordset(Sql)
Dato = Result!para
Dim Style, Message, Answer, Title As String
Style = vbCritical
Message = "está en la lista....." + Dato + Dato
Title = "-- Verificación de Rechazos --"
Answer = MsgBox(Message, Style, Title)
Result.Close
db.Close
Set Result = Nothing
Set db = Nothing
End Sub
O sea.. Si el dato a buscar que esta registrado en tarjcred01 lo encuentra en la tabla de la que saca la consulta si lo saca bien.. Pero si no lo haya truena.. Creo que me dice que Result! Para no existe.
¿Cómo puedo controlar cuando no lo encuentre?..
MUCHAS GRACIAS de adelantado.. Y saludos a todos!