Код выбора SQL для Data1 (например) из БД по датам - VB

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

Привет всем! Кто подскажет код выбора SQL для Data1 (например) из БД по датам. Суть в чем, имеется база-список: ID |Учетн_№ |Дата_записи | | и т.д. 'с 1 по 11 строки отсеять...... 12 | 3265 | 24.12.2004 'начать показ '.. эти промежуточные показать ..... 20 | 57 | 28.03.2005 'конец выборки Сема примерно такая: strSQL = 'SELECT * FROM [TableO] WHERE PD = ????? Data1.DatabaseName = DatBasPt Data1.RecordSource = strSQL Data1.Refresh По другим полям и Текстовым именам получается, а здесь как задать даты от и до разных лет ??? И вообще даже в одном году я НЕЗНАЮ Очень нужно ..... СПАСИБО

Решение задачи: «Код выбора SQL для Data1 (например) из БД по датам»

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

                             dim data1 as string
 data1 = format(DTPicker.Value,'dd.mm.yy')
' DataField - название поля базы данных
 Open ('Select ... from ... where (Data1 >= ' & SQLDate(DataField) _ & ')'
 ...
 
 Public Function SQLDate(d As String) As String
'здесь перевожу дату в американский формат, заменяю точки наклонными чертами и по краям ставлю решетки - тогда все понимает
    d = CStr(d)
    SQLDate = '#' & Mid(d, InStr(d, '.') + 1, InStrRev(d, '.') - InStr(d, '.') - 1) & _
    '/' & Left(d, InStr(d, '.') - 1) & '/' & Mid(d, InStrRev(d, '.') + 1) & '#'
                        