Xin giúp đỡ phần Query

[ontopoftheworld]

Nhờ các anh giúp cho vụ này!
1 -Khi em sử dụng Query để import dữ liệu với Data có có trường ngày tháng, em muốn import trường ngày tháng với điều kiện >,<, >= & <=, nhưng khi import thì bị báo lỗi(hình dưới). Và trường ngày tháng trong Query lại là
"yyyy-mm-dd 00:00:00 và tất nhiên khi trả về EX nó cũng giống vậy.
Có cách nào format trong Query để bất kỳ trường nào cũng được format "dd/mm/yyyy" và cách khắc phục lỗi "Syntax error in date" khi import không?

2- Vấn đề này em đã tham khảo một bài tương tự nhưng chưa thông suốt lắm:
Khi đưa vào lệnh SQL:

dim x, y
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=E:\2007\BCTC\Bao cao\BCTCQII-07.xls;DefaultDir=E:\2007\BCTC\Bao cao;DriverId=790;MaxBufferSize=2048;PageTim" _
), Array("eout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Data.Nôï, Data.Coù, Data.`Soá tieàn`" & Chr(13) & "" & Chr(10) & "FROM `E:\2007\BCTC\Bao cao\BCTCQII-07`.Data Data" & Chr(13) & "" & Chr(10) & "WHERE (Data.Nôï=33108.0) OR (Data.Coù=111.0)")

Em muốn lưu trữ điều kiện trên cell và Import theo điều kiện này.
Vậy có thể gán biến cho giá trị "33108.0" như thế nào để Excel có thể hiểu. Hiện tại em thử thay giá trị"33108.0=x và 111.0=y nhưng Ex không hiểu và chỉ trả về Ex các trường còn các record thì rỗng mặc dù trong Query có tồn tại các record sau khi đã lọc theo diều kiện.
Do bị giới hạn nên em không thể kèm hình được, nên đành mô tả suông vậy
Rất cám ơn các anh.