odbc connect og retrieve data

her er en fra excel odbc hedder okologi

Sub Makro1()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=okologi;DBQ=C:\Test.mdb;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
        , Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT Tele.Date, Tele.NIRRef, Tele.PlotKey, Tele.RedRef" & Chr(13) & "" & Chr(10) & "FROM `C:\Test`.Tele Tele" & Chr(13) & "" & Chr(10) & "ORDER BY Tele.Date" _
        )
        .Name = "Forespørgsel fra okologi"
        .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
End Sub

Tak for budet, det er ikke helt det jeg leder efter.

fandt det selv.