ayuda con listbox y acces 2007?

[principefreddy]

hola. ya consegui lo qu estaba buscando. pues miran esto.

Private Sub cmdAdd_Click()
Dim i As Integer
Dim K As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
For K = 0 To List2.ListCount - 1
If List1.Text = List2.List(K) Then
MsgBox "Valor ya Agregado", vbInformation
Exit Sub
End If
Next K
List2.AddItem List1.Text
Exit For
End If
Next i
End Sub


eso es para que por medio de un boton pase datos de listbox a otro. ahora si me pueden ayudar con esto: quisiera guardar los datos en una tabla , es decir, los datos de un listbox en una tabla. yo conecto las tablas de esta manera :

Data1.DatabaseName = App.Path + "\Base de Datos\honorarios.mdb"
Data1.RecordSource = "deducciones2"
Data1.Refresh


espero me hallan entendido y me puedan ayudar.