Error en consulta sql con vb6

[ARGFA]

Código vb:

rsCodigopago.MoveFirst
            codigopagotemporal = rsCodigopago!cob_num_temp
            'Print codigopagotemporal
            rsrsfactura.Open "SELECT nro_fact,fec_emis FROM dbo_reng_pag WHERE cob_num =" _
            & codigopagotemporal _
            & " AND tp_doc_cob = 'FACT' ", myconn, adOpenDynamic, adLockOptimistic
            Print rsrsfactura!nro_fact
            Print rsrsfactura!fec_emis
 

codigopagotemporal es una variable numerica y
FACT es una cadena de texto.
ese es mi codigo actualmente....