listo ya resuelto..... muchisimas gracias... de verdad...
aqui te pongo el codigo final....
Código vb:
Ver originalrsCodigopago.MoveFirst
codigopagotemporal = rsCodigopago!cob_num_temp
'Print codigopagotemporal
Set rsfactura = myconn.Execute("SELECT nro_fact,fec_emis FROM dbo_reng_pag WHERE cob_num =" & codigopagotemporal & " AND tp_doc_cob = 'FACT' ")
Print rsfactura!nro_fact
Print rsfactura!fec_emis
MUCHISIMAS GRACIAS AMIGO...!!!