Alguien me puede ayudar

[Kruzado]

ya viejito tienes el medio enredo en tu codigo, pero lo primero : estas usando el ciclo erroner, utilias un for, pero lo mas practico debe ser un while, te voy a colocar el codigo que usaria yo, es con dao, pero tu lo llevas a tu tipo de manejo de datos


Private Sub carga_datos()
Dim sql As String
Dim criterio As String
criterio = " select * from tbdetallefacturas where numfactura= " & txtNroPresupuesto.Text
set dsDetalleFactura=tubase.openrecordset(criterio,dbo pendynaset)

while not dsdetallefactura.eof
grilla.TextMatrix(i, 0) = dsDetalleFactura.Recordset!cantidad
grilla.TextMatrix(i, 1) = dsDetalleFactura.Recordset!codigoprod
grilla.TextMatrix(i, 3) = dsDetalleFactura.Recordset!precio
grilla.TextMatrix(i, 4) = dsDetalleFactura.Recordset!subtotal
dsDetalleFactura.movenext
wend

eso acomodaloa tu codigo y debe funcionar