Сортировка по дате в ДатаГрид - VB

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

На форме есть датагрид, текстбокс надо осуществить выборку ввода по дате
т.е. когда вводим дату а текстбокс, после нажимаем поиск, в ДатаГриде должно остаться только те записи которые с этим числом.
Что здесь не правильно?
Private Sub Command1_Click()
Dim sql As String
Dim rs As New ADODB.Recordset
sgl = "select * from base where data = '22.05.2002'"
rs.Open sql, AdoSearch.ConnectionString, adOpenKeyset, adLockBatchOptimistic
'DataGrid1.DataSource = AdoSearch
End Sub

Решение задачи: «Сортировка по дате в ДатаГрид»

textual
                            Листинг программы 
                        
                            <font color="blue">SELECT</font> * <font color="blue">FROM</font> base <font color="blue">WHERE</font> data = {d, <b><font color="green">"<b><font color="darkblue">2002</font></b>-<b><font color="darkblue">05</font></b>-<b><font color="darkblue">22</font></b>"</font></b>}