Подбор по интервалу

Private Sub plРабочийТок_AfterUpdate()
Dim sql As String
Dim r1 As Recordset
Dim db As Database
Set db = CurrentDb
sql = "select модель from tblрегАвтоматы where " & Me.plРабочийТок & " >= start and " & Me.plРабочийТок & " <= end "
Set r1 = db.OpenRecordset(sql)
Me.plРегАвтомат = r1(0).Value
End Sub

Me![plРегАвтомат].Requery

Dim sql As String
Dim r1 As Recordset
Dim db As Database
'Все действия производим с рекордсетом DAO, библиотека в референсах подключена
' и находится выше, чем ADO, поэтому явно можно не прописывать dao.recordset
Set db = CurrentDb ' устанавливаем db как текущую базу данных
sql = "select модель from tblрегАвтоматы where " & Me.plРабочийТок & " >= start and " & Me.plРабочийТок & " <= end "
'присваиваем строковой переменной sql строку запроса, который выводит из таблицы запись,
' подпадающую под наши условия, т.е. рабочий ток в соответствующем интервале
Set r1 = db.OpenRecordset(sql) ' на основе запроса создаём рекордсет
Me.plРегАвтомат = r1(0).Value ' присваиваем полю на форме знаечение 
'первого поля рекордсета - R1(0)