拜託各位VB的前輩幫幫忙,看看錯在那?(編號：7717)

拜託各位VB的前輩幫幫忙,看看錯在那?
我使用下列程式執行時無錯誤訊息,但也無刪任何符合條件的紀錄,請問為何會這樣?
Dim conn As New ADODB.Connection
Test1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\123.mdb" & ";Jet OLEDB:Database Password=123"
Set conn = New ADODB.Connection
　conn.Open Test1
　conn.Execute "DELETE 客戶.生日 FROM 客戶 WHERE 生日 ＜ " & Date & " "
　conn.Close

ps.生日欄位型態為"日期"(包含時間)