El segundo select esta medio feo para meterlo en el primer Select que tiene un sum, y luego tambien quieres mostrar su saldo.
Bueno, mientras aparezca una solución mas ortodoxa y para hacerlo identico a el resultado que quieres, yo me iría por retocar el RS haciendo un for next, una solución sucia pero una solución al final hasta que aparezca otra mejor.
Primero armo el Select con esta modificación:
sql =
SELECT fecha, nfactura, ' ' as xTotalEntrega, SUM(exenta+iva5+iva10) AS xTotalCredito, ' ' as Saldo
FROM ventas
WHERE tipoventa='CREDITO' AND estado='DEBE' AND cedula ='35623563'
GROUP BY nfactura
A nivel de VB6 viene esto:
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs.Open sql, dB, adOpenDynamic, adLockPessimistic '(importante abrirlo con OpenDynamic
For i = 1 To rs.RecordCount
sql2= "SELECT SUM(entrego) AS xTotalEntregas FROM credito_ventas WHERE nfactura= " & rs!nFactura
rs2.Open sql2, dB, 1, 1
TotEntr = iif(IsNull(rs2!xTotalEntregas), 0, rs2!xTotalEntregas)
NewSaldo = rs!xTotalCredito - TotEntr
rs.Fields("xTotalEntrega").Value = TotEntr
rs.Fields("Saldo").Value = NewSaldo
rs.Update
rs.MoveNext
Next i