Visual Basic - visual basic 6.0+MYsql+ repporte con 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 y que queiro mostrar ej numero de factura y que me despliege todo los insumos valores y cantidades

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