VBA Excell SQL Syntax error

halløj,

jeg forsøger at søge i en navision SQL database med dato som kriterie.

    Dim dato As Variant
    dato = Range("H8").Value
    Debug.Print dato

    Range("A1").Select

    With Selection.QueryTable

"WHERE (TabelA.Data4='#" & dato & "#')" _
        .Refresh BackgroundQuery:=False
    End With
End Sub

har editeret lidt i Sql så det essentielle er tilbage :D

Generel ODBC fejl.