resultado de consulta sql

[analoyra]

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