ODBC/SQL

Nogen som kan hjælpe med at indsætte kriterer i Between-sætningen... jeg ønsker at hente værdierne til dette kriterie i mit regneark - men får hele tiden enten ODBC eller SQL fejl ved hentning af data:

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};SYSTEM=QDKCRAW02;DBQ=QGPL srvprddat;DFTPKGLIB=QGPL;XLATEDLL=;LANGUAGEID=ENU;SORTTAB" _
        ), Array( _
        "LE=;TRACEFILENAME=C:\Documents and Settings\mfr\Dokumenter\IBM\Client Access\Service\Trace Files;PKG=QGPL/DEFAULT(IBM),2,0,1,0," _
        ), Array("512;QAQQINILIB=;DESC=Client Access Express ODBC data source;")), _
        Destination:=Range("C6"))
        .CommandText = Array( _
        "SELECT SRVADR.AZBBNB, SRVADR.AZC7TX, SRVADR.AZC9TX, SRVADR.AZDATX, SRVADR.AZDCTX, SRVADR.AZDGTX, SRVADR.AZDHTX, SRVPHS.A0DLTX, SRVPHS.A0AJCD, SRVPHS.A0AKCD, SRVPHS.A0DMTX, SRVPHS.A0AGDT, SRVPHS.A0BJNB" _
        , _
        ", SRVPHS.A0AJDT" & Chr(13) & "" & Chr(10) & "FROM DKCRAW02.SRVPRDDAT.SRVADR SRVADR, DKCRAW02.SRVPRDDAT.SRVPHS SRVPHS" & Chr(13) & "" & Chr(10) & "WHERE (SRVPHS.A0AJCD='342') AND (SRVPHS.A0AGDT Between Range(lngfradato) And Range(lngtildato))" _
        )
        .Name = "Forespørgsel fra AS400"
        .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