Проблема с Date при запросе в таблицу Access. HELP! - VB

Формулировка задачи:

MySQLQuery = "select * from [$$ Монтаж\Наладка] where [Дата заявки] => '*" & valueViborki & "*'" and [Дата заявки] <= '*" & valueViborki2 & "*'"
Set MyRecords = glMyDB2.OpenRecordset(MySQLQuery, dbOpenDynaset)
Проблемма вот в чем: Мне надо сделать загрузку таблицы (SatGrid) с сортировкой по дате... Указываем две даты, например 01,01,05 и 01,01,06, нам необходимо выбрать из бызы все записи в этом промежутке... База Access'овская, поле [Дата заявки] типа " дата" формата dd.mm.yy
Пробовал через разбивку строк на части... куча ифоф.... вообщем муторно, долго и не красиво...
Есть ли к-л. запрос или команда которая может это сделать?

Решение задачи: «Проблема с Date при запросе в таблицу Access. HELP!»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> Err
    <font color="blue">Dim</font> dbs <font color="blue">As</font> <font color="blue">New</font> ADODB.Connection
    <font color="blue">Dim</font> rcs <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
    dbs.ConnectionString = <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;"</font> & _
                           <font color="teal">"Data Source="</font> & PathDB & <font color="teal">"\test2000.mdb"</font> & _
                           <font color="teal">";User Id=;Password=;"</font>
    dbs.<font color="blue">Open</font>
    dbs.Execute <font color="teal">"INSERT INTO TEST(TEST) VALUES ('111') "</font>
    rcs.<font color="blue">Open</font> <font color="teal">"Select * from test"</font>, , adOpenStatic, adLockReadOnly
    rcs.MoveFirst
    <font color="blue">Me</font>.L_Test.Caption = rcs.Fields(<font color="teal">"Test"</font>).Value
    <font color="blue">Set</font> dbs = <font color="blue">Nothing</font>
    <font color="blue">Set</font> rcs = <font color="blue">Nothing</font>
    <font color="blue">Exit</font> <font color="blue">Sub</font>
Err:
    <font color="blue">Me</font>.L_Test.Caption = <font color="teal">"Îøèáêà ADO (Òåñò 1)"</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        