Visual Basic para Aplicaciones - bucle

lo que quiero hacer es que cuando ponga en una caja de texto un numero me genere en la tabla factura la cantidad de registro tantos como el numero q he puesto en la caja de texto en el codigo q hoz mando me inserta un registro solo, por eso quiero el bucle lo he intentado con For pero no me sale ayudadme por favor me urge
Aqui está el dodigo
Public Function ApostrofoSQL(t As String) As String
Dim cadres As String
Dim PosApp As Long
cadres = t
PosApp = InStr(1, cadres, "'")
While PosApp <> 0
cadres = Mid(cadres, 1, PosApp) & "'" & Mid(cadres, PosApp + 1)
PosApp = InStr(PosApp + 2, cadres, "'")
Wend
ApostrofoSQL = "'" & cadres & "'"
End Function
Public Function FechaBD(Fecha As Date) As String
FechaBD = "#" & Format(Fecha, "mm/dd/yyyy Hh:Nn:Ss") & "#"
End Function
Private Sub Command2_Click()
Dim sSQL As String
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("Db1.mdb") 'El path a tu BD
sSQL = "Insert into factura ([Id Factura],[Datos],[fecha Factura], [factura]) VALUES (" & _
txtFields(0).Text & "," & _
ApostrofoSQL(txtFields(1).Text) & "," & _
FechaBD(txtFields(2).Text) & "," & _
txtFields(3).Text & ")"
db.Execute sSQL, dbFailOnError

No veo el Bucle For..Next por ninguna parte, pero lo haría de la siguiente manera, además no veo la apertura del RecordSet.
- Buscar = text1.text ' es tú (q)
- NombreRecordset.findfirst & buscar (Para los datos Generales de Fact.)
luego en la tabla de detalle de factura (DFact)
- DFact.findfirst & buscar (si no existe msgbox "no tiene Detalle)
- bucle do while not DFact.EOF exit do
- DFact.FindNext & buscar
- loop