VB2008 ติดต่อ Ms Access มีปัญหาเกี่ยวกับวันที่ ตั้งแต่วันที่13ลงไป

        Dim day As String = "16 / 5 / 2013"
        Dim constr As String = "provider=microsoft.Ace.OLEDB.12.0;data source=db.accdb"
        Dim conn As New OleDbConnection(constr)
        conn.Open()
        Dim Sql As String = " SELECT*from Order_Details  where Order_Details.Order_Date=#" & day & "#"
        Dim cmd = New OleDbCommand(Sql, conn)
        Dim adpter = New OleDbDataAdapter(cmd)
        Dim ds As New DataSet
        adpter.Fill(ds, "data")
        DataGridView1.DataSource = ds.Tables("data")