Preencher tabela com dados de lisbox

Boa tarde a todos,

Tenho uma lisbox que é alimentada com dados de texboxs e combobox atravez de um botão incluir, o problema é que sou consigo guardar a primeira linha da lisbox na tabela.
Alguem pode me dizer como fazer para incluir os dados todos que estão na lisbox na tabela?

Estou a tentar usar o codigo seguinte:

Private sub save_Click
Dim counter As Integer
Dim strsql As String
For counter=0 to listbox1.listcount

strsql="INSERT INTO (Grupo, Name) Values ('" & listbox.ItemData(counter).Column(0) &"';'" & listbox.ItemData(counter).Column(1) & "')"'
Next

CurrentDb.Execute strsql

End Sub


Obrigado

Boa tarde...

Tenta algo parecido com isso.

Dim db2 As Database, Rs2 As DAO.Recordset
Set db2 = CurrentDb
Set Rs2 = db2.OpenRecordset("Nome_da_tabela")
With Rs2
.AddNew
![Campo_que_esta_na_tabela] = Me.Nome_da_sua_listbox.Column(0)
![Campo_que_esta_na_tabela] = Me.Nome_da_sua_listbox.Column(1)
.Update
End With