Visual Basic - visual basic 6.0,MYsql,crystal report

Estimado tengo el siguente problema busco por el mismo numero de factura y trato de desplegar en crystal report y me muestra solamente los datos de la primera fila.
Ej numero de factura y que me despliege todo los insumos valores y cantidades pero mi consulta recorre la base de dato pero no logro que me imprima todo los datos de esa factura, solo me visualiza los datos de la primera fila
esperando una buena recepcion me despido
s

Sub consulta1()

Data1.DatabaseName = directorio_actual + "administrador.mdb"
Data1.RecordSource = "ingreso_insumo"
Data1.Refresh
Data1.Database.Execute ("delete from " + "ingreso_insumo")

Dim oConn, RS, sqlmy
Set oConn = New ADODB.Connection
Set RS = New ADODB.Recordset
oConn.Open (conn_string2)

sqlmy = "SELECT * FROM ingreso_insumo WHERE num_doc =" & numfak
' selecciona todoo el contenido de la tabla
RS.Open sqlmy, oConn, 1

If RS.EOF = False Then
Do While Not RS.EOF

Data1.Recordset.AddNew

For h = 0 To 18 ' recorre los campos de la basedato
Data1.Recordset(h) = RS(h)
Report1.DataFiles(h) = "": Report1.Formulas(h) = ""

Next h

Data1.Recordset.Update
RS.MoveNext

Loop

End If

'For h = 0 To RS.EOF: Report1.DataFiles(h) = "": Report1.Formulas(h) = "": Next h
Report1.WindowTitle = "FACTURA"
Report1.WindowTop = True
Report1.WindowHeight = 800
Report1.WindowWidth = 1200
Report1.ReportFileName = directorio_reportes + "facturas.rpt"
Report1.DataFiles(0) = directorio_actual + "administrador.mdb"
Report1.Action = 1

RS.Close
oConn.Close

Set RS = Nothing
Set oConn = Nothing

End Sub