Cita:
Iniciado por franko1809 
Parece que mecesitas un campo calculado, que codigo utilizas para cargar la grilla
Private Sub carga_datos()
Dim sql As String
Dim criterio As String
tbdetallefactura where numfactura= " + txtNroPresupuesto.Text & " "
criterio = "numfactura= '" & txtNroPresupuesto.Text & "'"
dsDetalleFactura.Recordset.FindFirst criterio
For i = 1 To grilla.Rows - 1
dsDetalleFactura.Recordset.MoveFirst
dsDetalleFactura.Recordset.FindFirst criterio
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.Recordset.NextRecordset
Next
End Sub
Pero como veras me falta columna 2 de la tabla dsarticulos, pero segun el codigo que alla en la columna 1