ODBC fra Navision til Excel

Jeg er ved at lave en odbc opdatering fra en navision database til Excel 2000
Når jeg kører den på min egen pc (fra fil) kan jeg godt hente data, men når de skal hentes via serveren går det galt.

Disse to herunder fungerer

    SqlQu = "SELECT Salgsfakturahoved.Kundenr_, Salgsfakturahoved.Nummer, Salgsfakturahoved.""Faktureres til kundenr_"", Salgsfakturahoved.Sælgerkode, Salgsfakturahoved.""Debitor-bogføringsgruppe"", Salgsfakturahoved.Bogføringsdato, "
    SqlQu = SqlQu & "Salgsfakturalinie.Bilagsnr_, Salgsfakturalinie.SalgsVareGr, Salgsfakturalinie.Beløb, Debitor.Nummer, Debitor.Sælgerkode, Debitor.""Oprettet Dato"", Debitor.Kundetype "
    SqlQu = SqlQu & Chr(13) & "" & Chr(10) & "FROM Debitor Debitor, Salgsfakturahoved Salgsfakturahoved, Salgsfakturalinie Salgsfakturalinie "
    SqlQu = SqlQu & Chr(13) & "" & Chr(10) & "WHERE Debitor.Nummer = Salgsfakturahoved.Kundenr_ AND Salgsfakturahoved.Nummer = Salgsfakturalinie.Bilagsnr_ AND "
    SqlQu = SqlQu & "(Salgsfakturahoved.Sælgerkode='" & SælgerNr$ & "') AND "
    SqlQu = SqlQu & "(Salgsfakturahoved.Bogføringsdato>={ts '" & SøgStartDato$ & " 00:00:00'}) AND "
    SqlQu = SqlQu & "(Salgsfakturahoved.Bogføringsdato<={ts '" & SøgSlutDato$ & " 00:00:00'}) "
    SqlQu = SqlQu & Chr(13) & "" & Chr(10) & "ORDER BY Salgsfakturahoved.Nummer"


    'Hent data fra fil
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Sample C/ODBC 32 bit;CSF=No;Database=C:\navibase\firma.fdb;PPath=C:\firma" _
        ), Array("\firma\Navi2.60 DK;UID=odbc;PWD=odbc1430;CN=1. regnskab;SERVER=N;")) _
        , Destination:=Range(Dest$))
        .CommandText = SqlQu
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
    '
    '
    'Hent Data fra database
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Navision database;CSF=Yes;SName=financials;NType=tcp;PPath=firma\Navi2.60 DK;UID=user;PWD=password;CN=1" _
        ), Array(". regnskab;SERVER=N;")), Destination:=Range("A1"))

        .CommandText = Array( _

        "SELECT Debitor.Navn, Debitor.Nummer" & Chr(13) & "" & Chr(10) & "FROM Debitor Debitor" & Chr(13) & "" & Chr(10) & "WHERE (Debitor.Nummer>='100000000')" _
        )
        .Name = "Forespørgsel fra Navision database"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
   
men denne her fungerer ikke

    'Hent Data fra database
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Navision database;CSF=Yes;SName=financials;NType=tcp;PPath=firma\Navi2.60 DK;UID=user;PWD=password;CN=1" _
        ), Array(". regnskab;SERVER=N;")), Destination:=Range("A1"))

        .CommandText = SqlQu

        .Name = "Forespørgsel fra Navision database"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
   

Den kommer med en objekt-fejl 1004

Hvad er der galt?