hentning fra database til dropdown

Hejsa,

Jeg er igang med at lave en dropdown box i excel vha. et kontrol-element.

Denne skal jeg have fyldt ud med resultat af en Database query.

Denne her putter queryen på en celle, men jeg vil jo som sagt putte den i en drop-down...

    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DRIVER=SQL Server;SERVER=xxxx;UID=xxxx;APP=Microsoft® Query;WSID=xxxx;DATABASE=xxxx;Trusted_Connection=Ye" _
        ), Array("s")), Destination:=Range("A51"))
       
        .CommandText = Array( _
        "SELECT * FROM COSTUMERS")
        .Name = "Forespørgsel fra intranet"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With


Jeg har forsøgt med denne også:

dim objConn as adodb.connection
set objConn = new adodb.connection
objConn.connectionstring = "xxxxxxx"
objConn.open

denne virker heller ikke, da der ikke er nogen reference til MDAC inde fra makro editoren i excel?

What do I do??????