Ошибка EOF

[Ganz]

Файл mdb подключен с помощью компонента data, сделал кнопку "пролистывания" записей:

Data1.Recordset.MoveNext
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)

Когда записи кончаются, вылетает сообщение "Run time error 3021. No current record"
У компонента Data свойство EOFAction установлено в "0 - move last"
Однако ошибка упорно вылетает.
Я попытался программно определить последюю запись:

if Data1.RecordSet.EOF = false then Data1.RecordSet.MoveNext
end if
end sub

Не помогло, ошибка все равно вылетает.
Посоветуйте, что делать.

[SSecurity]

Пробуй так ....

Код: Выделить всё

Private Sub Command1_Click()
'If Data1.Recordset.AbsolutePosition = -1 Then Data1.Recordset.AbsolutePosition = 0
If Data1.Recordset.AbsolutePosition >= Data1.Recordset.RecordCount - 1 Then Exit Sub
Data1.Recordset.MoveNext
End Sub


кстати ... ТЕКСТ в поле TEXT1 и TEXT2 достаточно установить для них поле и источник данных