Ayuda !!!!!!!!!!

[gasafonso]

Tengo este codigo :

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
-------------------------------------------------------------------------------------
Pero quiero que se repita mientras numfactura= txtNroPresupuesto.Text

numfactura es el campo de una tabla , y quiero cargar todos los items de ese numfactura

gracias


End Sub