tarih'i değişkenden almak

[myilmaz]

Access veri tabanından bilgi sorgulayıp excel sonuçları aşağıdaki macro ile atıyorum.
Ancak tarih sorgulamasında değişken kullanmak istediğimde (DTPicker ile "RBT.value")
run-time error (1004) Genel ODBC hatası veriyor. ve en alttaki
".Refresh BackgroundQuery:=False" sarı renk oluyor.

Bu sorguda DTPicker'dan seçilen tarih ile sorgulamayı nasıl yapabilirim? (RBT.value)
Yardımlarınız için şimdiden teşekkür ederim.

Sub verial()
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=K:\Program Files\data\data.mdb;DefaultDir=K:\Program Files\data;DriverId=281;FIL=MS Access;MaxBuffer" _
), Array("Size=2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Cdata.type, Cdata.tdate, Cdata.duration, Cdata.cport, Cdata.rdata, Cdata.cdata" & Chr(13) & "" _
& Chr(10) & "FROM `K:\Program Files\data\data`.Cdata Cdata" & Chr(13) & "" _
& Chr(10) & _
"WHERE (Cdata.type='A') AND (Cdata.tdate>={ts '2008-12-02 00:00:01' ", "} And Cdata.tdate<={ts '2008-12-02 23:59:59'})" _
& Chr(13) & "" & Chr(10) & "ORDER BY Cdata.tdate")
.Name = "MS Access Database kaynağından sorgula"
.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
End Sub