listbox vraag

[spattah]

Hallo allemaal,

ik heb een vraag betreffende een probleem met de ListBox optie. Hopelijk kan iemand mij helpen.

Ik probeer een listbox te maken van alle tabellen die in een bepaalde database zitten. De tabellen stop ik eerst in een Array. Daarna wil ik dat deze array in een listbox geplaatst wordt en in cel A1 komt te staan.

Het gedeelte wat ik nu heb klopt niet, ik krijg continue foutmeldingen bij het laatste stukje:

Set Rs = conn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
        
    Dim iCount As Integer
        
    ReDim myArray(1 To 50) As String
    iCount = 1
    
    'make array of tables
    Do While Not Rs.EOF
        Debug.Print Rs("TABLE_NAME")
        myArray(iCount) = Rs("TABLE_NAME")
        iCount = iCount + 1
        Rs.MoveNext
    Loop
    
    Dim lijst As ListBox
    
    For i = 1 To 50
        lijst.AddItem myArray[i]
    Next i

tot het aanmaken van de ListBox gaat het goed. Ik kom er niet uit hoe ik dit nu verder moet aanpakken. Kan iemand mij wat tips geven?

Alvast bedankt!

gr. Spattah!

 

[Pizara]

hebben we het hier over Excel VBA?