Foros del web, para los que viven de bits

Hola, queria saber como saber si una consulta hecha a una tabla es true o false
la consulta es la siguiente
SQL = "SELECT * FROM compcompra WHERE comp_clave like '" & txtClave.Text & "'"
Rs.Open SQL, cn, adOpenDynamic, adLockPessimistic

luego si es true hago un msgbox y sino otra rutina

gracias como siempre por la colaboracion

if rs.recordcount > 0 then
msgbox "tiene datos"
end if

nos vemos..

ok, muchas gracias, hice esto
SQL = "SELECT * FROM compcompra WHERE comp_clave like '" & txtClave.Text & "'"
Rs.Open SQL, cn, adOpenDynamic, adLockPessimistic
If Rs.RecordCount < 1 Then
MsgBox ("No se puede eliminar porque el registro esta en uso")

pero resulta que este o no este el registro siempre me da -1

Ese problema, creo que ya indiqué ayer la solucción, y es poner (antes de abrir el recordset), el cursor del lado cliente:

Rs.CursorLocation = adUseClient

Gracias Avellaneda, no vi la solucion que mencionas...pero no quiere decir que no este, seguro se me escapo

¿La solución?

Solamente es poner ésa instrucción antes de abrir el recordset!