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.