SQL eller General ODBC fejl

Hej

Jeg har stirret mig blind på et problem som jeg håber nogen kan hjælpe med.

Når jeg kører følgende makro

Dim dato As Variant
    Sheets("Test").Select
    dato = Range("J12").Value
    Debug.Print dato
    Sheets("Salgsfakturahoved").Select
    Range("A1").Select
   
    With selection.QueryTable
        .Connection = Array(Array( _
        "ODBC;DSN=NAVI RS;CSF=Yes;SName=server1;NType=tcp;PPath=C:\Program Files\Navision Financials;OPT=Text;IT=All Except DOT;QTYesNo=Yes;R" _
        ), Array("O=No;CC=Yes;BE=Yes;UID=combo;;CN=xxxxxxx A/S;SERVER=N;"))
        .CommandText = Array( _
        "SELECT Salgsfakturahoved.Nummer, Salgsfakturahoved.Ordrenr_, Salgsfakturahoved.Bogføringsdato, Salgsfakturahoved.Beløb, Salgsfakturahoved.Kundenavn, Salgsfakturahoved.Kundenr_, Salgsfakturahoved.Udskr" _
        , _
        "evet, Salgsfakturahoved.""Modt_-/EAN-Lokationskode""" & Chr(13) & "" & Chr(10) & "FROM Salgsfakturahoved Salgsfakturahoved" & Chr(13) & "" & Chr(10) & "WHERE (Salgsfakturahoved.Bogføringsdato=" & dato & ")" _
        )
        .Refresh BackgroundQuery:=False
         
       
    End With
End Sub

_______________
returnere query´en en SQL fejl. Den indsætter det rigtige i datoofeltet i qurey´en, hvilket betyder at jeg bare kan trykke returner data, det skulle makroen bare gerne selv gøre.


Feltet i Excel hvor variablen hentes er her et text felt, jeg har prøvet med forskellig andre formater, men de indsætter mange forrykte ting i kriteriefeltet i query´en.

Vi mistænker at det måske kan skyldes datofeltet i Navision for det volder os intet besvær at indsætte data i andre kriteriefelter. Den synlige forskel er at de felter hvor det er lykkeds os er klammet ind i '' i kriteriefeltet, hvor denne forespørgelsel på datfeltet er klammet ind i ##.

Håber nogen kan hjælpe mig ud af dette dødvande.

PFT
Mvh.
Claus