ODBC - Månedsskift

Hej

Jeg har en ODBC forespørgelse mod vores AS400

På grund af mængden af data er jeg nød til kun at hente den aktuelle måneds tal, men hvordan får jeg det til at fungerer så det kører automatisk...

Jeg har optaget oprettelsen af forbindelse i en makro og ændre filter-felterne til en variable som jeg så sammenligner med dagsdato problemet er bare at denne makro kun bruges i forbindelse med oprettelse af forbindelsen...

Jeg knytter disse data til en Pivottabel - er det ikke muligt i opdateringsfasen at angive en anden variable for hentning...

Håber nogen forstår hvad jeg har skrevet - understående er den makro jeg har rettet i:

Sub GetDataFromAS400()
Dim YearPart, MonthPart

YearPart = 1 & Right(DatePart("yyyy", Now), 2)
MonthPart = DatePart("m", Now)


    Worksheets("MSSSOB").Activate
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};UID=MFR;SIGNON=;SSL=;DESC=Client Access Express ODBC data source;QAQQINILIB=;PKG=QG" _
        ), Array( _
        "PL/DEFAULT(IBM),2,0,1,0,512;TRACEFILENAME=C:\Documents and Settings\me\Dokumenter\IBM\Client Access\Service\Trace Files;SORTTA" _
        ), Array( _
        "BLE=;LANGUAGEID=ENU;XLATEDLL=;DFTPKGLIB=QGPL;DBQ=QGPL MSSPRDDAT;SYSTEM=AS400;" _
        )), Destination:=Range("A3"))
        .CommandText = Array( _
        "SELECT MSSSOB.CMGFTX, MSSSOB.CMARDT, MSSSOB.CMAHTM, MSSSOB.CMCDNB, MSSSOB.CMBJNB, MSSSOB.CMBKNB, MSSSOB.CMBQCD, MSSSOB.CMBSCD, MSSSOB.CMBUCD, MSSSOB.CMC8NB, MSSSOB.CMBZCD, MSSSOB.CMA8TX, MSSSOB.CMA7TX" _
        , _
        ", MSSSOB.CMHHNB, MSSSOB.CMBYNB, MSSSOB.CMAZVA, MSSSOB.CMA0VA, MSSSOB.CMA1VA, MSSSOB.CMA8ST, MSSSOB.CMBTNB, MSSSOB.CMA6ST, MSSSOB.CMAADT, MSSSOB.CMAATM, MSSSOB.CMAFTX, MSSSOB.CMDTNB, MSSSOB.CMG7TX, MSS" _
        , _
        "SOB.CMB6NB, MSSSOB.CMAVCD, MSSSOB.CMCFNB, MSSSOB.CMCGNB, MSSSOB.CMJGVA" & Chr(13) & "" & _
        Chr(10) & "FROM DKCRAW03.MSSPRDDAT.MSSSOB MSSSOB" & Chr(13) & "" & Chr(10) & _
        "WHERE (MSSSOB.CMBJNB= " & YearPart & ") AND (MSSSOB.CMBKNB= " & MonthPart & ")" _
        )
        .Name = "Forespørgsel Sales"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 5
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=True
    End With
End Sub

den virker første gang - men hvad sker der til månedsskiftet??