SQL - Insertar 1 ó mas registros

Hola que tal amigos del foro..Si por favor pudieran orientarme de como hacerle para lo siguiente: Tengo Una tabla llamada Articulos con dos campos codigo y nombre y varias cajas de texto (5) para insertar hasta 5 codigo y 5 nombres.. la duda es ¿ como hacerle para insertar un solo codigo y su nombre, o a su vez 2,3, 4 y hasta los 5..Tengo ya definida la conexion, el rs, y trabajo con el objeto ADODB y sentencias SQL.... Si me pudieran dar un ejemplo se los agradezco. Mil gracias y saludos

Te recomiendo que puedes hacer un bucle, te daré un ejemplito:

Private Sub CmdAceptar_Click()
Dim CadenaSql As String
Dim Con as ADODB.Connection
Dim i as integer
Dim flag as boolean

Set Con = New ADODB.Connection
Con.ConnectionString = "dsn=NOMBRE_DSN;uid=sa;pwd="
Con.ConnectionTimeout = 30
Con.Open
flag=true
Do while flag=true
CadenaSql = "insert into articulos values('" & TxtCod(0).Text & "','" & TxtNom(0).Text & "')"
Con.Execute(CadenaSql)
If TxtNom(i+1).text = "" then
flag=false
end if
i = i + 1
Loop
Set Con = Nothing

End Sub

Sencillo, pero deberás crear una matriz de control para el TxtNom y TxtCod para que pueda funcionar el bucle