Bom dia, leitores.
Me deparei com um sisteminha em Access 2003 onde eu precisava passar os dados de uma listbox pra outra, após quebrar um pouco a cabeça, pelo fato do Access 2003 não ter a propriedade .List, fiz um for que resolveu passando item a item (ótimo para uso em queries SQL onde precisa-se do item da listbox). Para efeito de consulta, segue código:
For x = 0 To Me.Lista0.ListCount – 1
Me.Lista0.Selected(x) = True
ind = Me.Lista0.Column(0, Me.Lista0.ListIndex)
‘MsgBox ind
Me.Lista2.AddItem (ind)
Next
Simples, não? agora só adaptar para seu código!