Hallo Excelgemeinde,
ich komme einfach nicht weiter. Bisher habe ich mit dem u. g. Code eine Listbox in einer Userform (Excel-VBA) aus einer AccessDB befüllt. Jetzt musste ich feststellen, dass bei DBs mit mehr als 10 Spalten der Code nicht mehr funktioniert. Als Lösung hat Google Arrays ausgespuckt.
Nur kriege ich das einfach nicht auf die Reihe! Kann mir bitte jemand mit einem Beispielcode auf die Sprünge helfen.
Danke für eure Hilfe.
Viele Grüße
andreas
Dim i As Integer
rst.Open "SELECT [Code], [Country] FROM tblISOCOuntryCodes ORDER BY [Country];", _
cnn, adOpenStatic
rst.MoveFirst
i = 0
With Me.ListBox1
.Clear
Do
.AddItem
.List(i, 0) = rst![Code]
.List(i, 1) = rst![Country]
i = i + 1
rst.MoveNext
Loop Until rst.EOF
End With