Visual Basic - Solo para Genios Programadores (Insert Into)

Buenas, realmente solo un genio creo que puede ayudarme a resolver esto...

Tengo una Formulario de Factura con varios TextBox Ej:


Codigo1 Descrip1 Costo1 Vendido 1 (estos son los textbox del primer renglon)

Codigo2 Descrip2 Costo2 Vendido 2 (estos son los textbox del 2do renglon)

Codigo3 Descrip3 Costo3 Vendido 3 (estos son los textbox del tercer renglon)

Cuando el usuario presiona grabar en un boton, tengo el siguiente codigo:


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Factura\Articulos.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
strsql3 = "Insert Into CONSUMOS (cod_art, descrip_art, costo_art, cantidad)"
strsql3 = strsql3 & "Select codigo1, descrip1, costo1, vendido1 from factura IN C:\Factura\consumo.mdb"
rs.Open strsql3, cn
cn.Close
Set cn = Nothing

Esto funciona Perfecto....! pero solo me graba los datos del Renglón 1 (codigo1, descrip1 etc)
Como puedo hacer para que me registre en la tabla consumos todos los rennglones de la factura?
Con un bucle..? como...? Por favor...podrian ayudarme?

viejo no te puedo explicar eso por una ventana tan chica agregame a msn y te enseño

[email protected]