Sebastian
Sub RefreshData()
'
' RefreshData Macro
' Macro recorded 01.10.2002 by Schick
'
Dim curMonat As String
aktMonat = 10.2002
'
With Selection.QueryTable
.Connection = Array(Array( _
"ODBC;DBQ=S:\common\SixSigma\Project warm-cold product\Überprüfung\Temperaturen.mdb;DefaultDir=S:\common\SixSigma\Project warm-cold p" _
), Array( _
"roduct\Überprüfung;Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageT" _
), Array("imeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"))
.CommandText = Array( _
"SELECT TemparaturenQuery.LSNR, TemparaturenQuery.LieferstelleName, TemparaturenQuery.TsNr, TemparaturenQuery.Produktbeschreibung, TemparaturenQuery.Tanknummer, TemparaturenQuery.Temperatur, Temparatur" _
, _
"enQuery.DBTimeStamp, TemparaturenQuery.MonatJahr" & Chr(13) & "" & Chr(10) & "FROM TemparaturenQuery TemparaturenQuery" & Chr(13) & "" & Chr(10) & "WHERE (TemparaturenQuery.MonatJahr= '10.2002')" _
)
.Refresh BackgroundQuery:=False
End With
End Sub