استعلام عن وقت معين وتاريخ معين

ما هى رسالة الخطأ ؟

الكود

Dim CountIdCommand As New OleDbCommand

CountIdCommand.Connection = cn

CountIdCommand.CommandType =

CommandType.Text

CountIdCommand.CommandText =

"select Count(tble_money_box_daily.box_id)AS CountID from tble_money_box_daily WHERE(tble_money_box_daily.expire_date <#" & Now & "# and tble_money_box_daily.expire = false)"

CountId = CountIdCommand.ExecuteScalar()

sql1 =

"select*from tble_money_box_daily WHERE(tble_money_box_daily.expire_date <#" & _today & "# and tble_money_box_daily.expire = false)"

cmd =

New OleDbCommand(sql1, cn)

rd = cmd.ExecuteReader

رسالة الخطأ بالكامل

Syntax error in date in query expression '(tble_money_box_daily.expire_date <#26/01/2013 12:01:18

ص# and tble_money_box_daily.expire = false'.

System.Data.OleDb.OleDbException was unhandled
  ErrorCode=-2147217913
  HResult=-2147217913
  Message=Syntax error in date in query expression '(tble_money_box_daily.expire_date <#26/01/2013 12:01:18 ص# and tble_money_box_daily.expire = false'.
  Source=Microsoft Office Access Database Engine
  StackTrace:
       at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)
       at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
       at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
       at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
       at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
       at System.Data.OleDb.OleDbCommand.ExecuteScalar()
       at magic_saler.FrmMain.close_expire_boxes() in C:\Users\seven it\Desktop\magic_saler\magic_saler\magic_saler\main\forms\FrmMain.vb:line 816
       at magic_saler.FrmMain.Timer1_Tick(Object sender, EventArgs e) in C:\Users\seven it\Desktop\magic_saler\magic_saler\magic_saler\main\forms\FrmMain.vb:line 949
       at System.Windows.Forms.Timer.OnTick(EventArgs e)
       at System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       at System.Windows.Forms.Application.Run(ApplicationContext context)
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       at magic_saler.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
       at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
       at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       at System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       at System.Threading.ThreadHelper.ThreadStart()
  InnerException:
 

Dim CountIdCommand As New OleDbCommand
CountIdCommand.Connection = cn
CountIdCommand.CommandType =CommandType.Text
CountIdCommand.CommandText ="select Count(box_id) AS CountID from tble_money_box_daily WHERE (expire_date <Date() and expire = false)"
CountId = CountIdCommand.ExecuteScalar()
sql1 ="select * from tble_money_box_daily WHERE (expire_date <Date() and expire = false)"
cmd =New OleDbCommand(sql1, cn)
rd = cmd.ExecuteReader

look code

شكراااااااااااا وجاري التجربة