Hente data fra en liste med VBA

1) Jeg ville laegge data i et array istedet
Kode paa formularen (paa en knap evt)
  dim Variable() as String
  dim i as integer

  for i = 0 to me.Listen.ListCount
  Redim preserve Variable(0 to i)
  variable(i) = me.Listen.Itemdata(i)
  next i

2)
Hvis du vil have en form hvor du vil have indholdet af flere tabeller tror jeg det bedste vil vaere at lave enten query som samler de to tabeller eller at benytte dig af subforms - dette afhaenger af data-strukturen hvilken leosning er det mest passende.

Når jeg kjører koden under får jeg inn hele spørringen inn i listen (SELECT...),men jeg vil ha resultatet av spørringen. Hvordan kan jeg gjøre det ? Jeg vet jeg kan sette RowSourceType til array/query, men da får jeg ikke benytte ".AddItem" metoden...Det jeg ønsker er altså å få inn resultatene av flere spørringer under hverandre i listboksen. Kan du hjelpe meg med dette ?

For i = 1 To Me.liste.ListCount

  ReDim Preserve variable(0 To i - 1)
  variable(i - 1) = Me.liste.ItemData(i - 1)
  sSQL2 = "SELECT IPAdresse FROM " & variable(i - 1)
  With Me.liste2
  If Me.liste2.ItemsSelected.Count > 0 Then
  For Each itm In Me.liste2.ItemsSelected
    txt = txt & Me.liste2.ItemData(itm) & "; "
    Next itm
    liste2.AddItem sSQL2
    'Me.liste2.RowSource = sSQL2
    'Me.liste2.Requery
    'MsgBox sSQL2
  Else
  liste2.AddItem sSQL2
  'Me.liste2.RowSource = sSQL2
  'Me.liste2.Requery
End If

   
  End With
Next i

Jeg proever at kigge paa det - men kan ikke komme op med noget lige nu og her :-)

and where are we with this qustion?

Trekker spørsmålet da vi ikke kom noen vei...