Insert Into mediante do while basado en Campo CANT

Necesito su ayuda. Yo Tengo dos Subformularios: SF1 (Basado en Tabla1) y SF2 (Basado en la tabla 2) en el primero yo tengo tengo los campoS COD y CANT. Necesito insertar en la segunda tabla, tantos registros como CANT. para poder ingresar un Numero serial por cada unidad del articulo. Por ejemplo:
TABLA 1
COD. CANT.
001 2
006 1
Debo insertar en TABLA 2
001
001
006
Agradezco su ayuda he intentado:

Dim num As Integer, contador As Integer
contador = 0
num = Forms![FacturasRec_NSF]![FacturasRec_Det_SF].Form![CANLFR].Value
Do While contador = num
Insertar
contador = contador + 1
Loop

Private Sub Insertar()
CurrentDb.Execute "INSERT INTO FNSE (TIPSE, CODNSE)" _
& " VALUES (" & Me.TIPFRE.Value & ", " & Me.CODFRE.Value & " )"
End Sub

Pero no he podido aun. Gracias por sus respuestas