Cita:
Iniciado por gasafonso 
la consulta es :
Private Sub carga_datos11()
Dim i As Long
Dim criterio As String
dsDetalleFactura.RecordSource = " select cantidad,codigoprod, precio, subtotal,numfactura from tbdetallefactura where numfactura like '" & txtNroPresupuesto.Text & "'"
dsDetalleFactura.Refresh
With grilla
.Rows = dsDetalleFactura.Recordset.RecordCount + 2
'.Cols = dsDetalleFactura.Recordset.Fields.Count
i = 1
Do Until dsDetalleFactura.Recordset.EOF
If dsDetalleFactura.Recordset.EOF Then Exit Do
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
txtTotal.Text = dsDetalleFactura.Recordset!subtotal
i = i + 1
dsDetalleFactura.Recordset.MoveNext
If i = grilla.Rows Then Exit Do
'Next
Loop
End With
End Sub
Ese código ya lo pusiste al principio y se te aconsejó que utilizaras una clausula INNER JOIN en la consulta para enlazar las dos tablas.
Revisa la respuesta #17 y sustituye todas las veces que aparece 'tbdetallecliente' por
tbdetallefactura 