Hola!
Trata asi:
Código vb:
Ver originalrsrsfactura.open "SELECCION CAMPOS FROM TABLA WHERE cob_num =" _
& codigopagotemporal _
& " AND tp_doc_cob = 'FACT' ", myconn, adOpenDynamic, adLockOptimistic
IF RSRSFACTURA.EOF=FALSE THEN
'...
'TU CODE AQUI
'...
END IF