Помогите пожалуйста с запросом кто может - VB

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

strSQL = "select id, innomer, faktdate, naimenovanie, valut, cena FROM sved_ob_yslug where faktdate <= '*" & Me.Текст1.Text & "*' "
вот эта дрянь плохо работает в чем ошибка
(FaktDate) дата начала, мне надо чтоб он отображал все данные в которых дата меньше или равна введенной.) Заранее всем спасибо

Решение задачи: «Помогите пожалуйста с запросом кто может»

textual
                            Листинг программы 
                        
                            strSQL = <b><font color="green">"<font color="blue">select</font> id, innomer, faktdate, naimenovanie, valut, cena <font color="blue">FROM</font> sved_ob_yslug <font color="blue">where</font> 
<br>DateSerial(mid$(faktdate,<b><font color="darkblue">7</font></b>,<b><font color="darkblue">2</font></b>), mid$(faktdate,<b><font color="darkblue">4</font></b>,<b><font color="darkblue">2</font></b>), mid$(faktdate,<b><font color="darkblue">1</font></b>,<b><font color="darkblue">2</font></b>)<=#"</font></b> & Format(Cdate(Me.Текст1.Text),<b><font color="green">"mm\/dd\/yyyy"</font></b>) & <b><font color="green">"#"</font></b>