Поиск по интервалу.

[Danu]

Есть Есть база данных в аксессе, содеражащая таблицу 2004 с колонкой PR_TR_LST в которой содержатся цифры, надо сделать по ней интервальный поиск через between , числа вводятся пользователем и содержатся в текстовых полях 4 и 5. Вроде все сделано правильно, но поиск не идет, долгое чтение мануала также не помогло, может вы что подскажете?

Вот код который должен запускатся при нажатии на кнопку поиска:

Private Sub command5_click()
Dim ot, d0 As Integer
ot = Text4.Text
d0 = Text5.Text
Me.Data1.RecordSource = "select PR_TR_LST " & _
"From 2004 " & _
"Where ([PR_TR_LST] BETWEEN '" & ot & "' and '" & d0 & "')"

Есть мысль что ошибка здесь -> '" & ot & "' and '" & d0 & " , но что там должно быть- тайна, покрытая мраком.