Access - CONSULTA VACIA

bueno aki va una duda

tengo una consulta que evalua dos campos, lo unico que quiero es que si existen valores coincidentes en lugar de mostrarme los datos, solo envie un msgbox "Si existe", sino hay coincideencias entonces msgbox "no existe el registro"

tambien intente esto
Dim dbs_mens As Database
Dim qdf_mens As QueryDef
Dim rst_mens As Recordset
Dim strsql As String

Set dbs_mens = CurrentDb()
Set qdf_mens = dbs_mens.CreateQueryDef("", "SELECT * FROM tblClientesReceta WHERE (tblClientesReceta.CodCli='*[Formularios]![frmReceta]![CodCli]*' AND tblClientesReceta.Entregado = false ) ;")
Set rst_mens = qdf_mens.OpenRecordset

If Not rst_mens.EOF Then
MsgBox "NO ACEPTADO"
Else
MsgBox "PRESTAMO AUTORIZADO"
End If
rst_mens.Close
dbs_mens.Close

GRACIAS POR CUALQUIER AYUDA

Hola
1º no necesitas crear la consulta temporal, tan sólo el recordset
2º en la cadena SQL te falta, en la igualdad:
WHERE (tblClientesReceta.CodCli= " & [Formularios]![frmReceta]![CodCli] & " AND
3º no has de mirar el EOF del recordset, sino, si devuelve registros:
If rst_men.Recordcount >0 then
'existen registros.... el mensaje que quieres
else
'no existen registros... tu mensaje
end if
rst_men.Close
Un saludo
Victoria