連接 Paradox 用 sql 指令 在 timestamp 格式時有問題

pploveeye

hi
  大家好.小弟最近需要用EXCEL連接外部 Paradox 的資料庫檔案 .db
程式也已經正確連接到.資料也可以拉到EXCEL
但是若加上 SQL 的Where 命令 搜 Timestamp 這種格式 就不會正常找出.
完整的程式如下.
其中的SQL命令
    AllSql = "Select * From Alarm where OnTime>=2014-01-16 "
中的日期嘗試過很多格式都沒辦法.如
2014-01-16
01-16-2014
2014/01/06
01/06/2014



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    '宣告
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim AllSql As String
    '讀取目錄
    ReadDir = "c:\EpmsServer\DataBase\"
    '
    AllSql = "Select * From Alarm where OnTime>=2014-01-16 "
    '讀取 db
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ReadDir & ";" & "Extended Properties=Paradox 5.x;"
    rst.Open AllSql, cnn, , , adCmdText
    'db放到表格
    Range("A3").CopyFromRecordset rst

End Sub