Есть ComboBox "cboKod". Вот процедура обработки движения по записям:

Private Sub cboKOD_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
If rs.BOF Then
MsgBox "Це перша запис!", vbCritical
rs.MoveFirst
End If
rs.MovePrevious
ElseIf KeyCode = 40 Then
If rs.EOF Then
MsgBox "Це кінцева запис!", vbCritical
rs.MoveLast
Else
rs.MoveNext
End If
End If
Me.cboKOD.SetFocus

End Sub

Почему при движении вниз выдаёт rs.EOF = True после каждой второй записи?
То же при движении вверх, но при каждом выполнении. Подскажите, в чём дело?

С уважением РАДАНЯ.