Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
With Me.Recordset
If Keycode = 40 'down arrow
.MoveNext
Else If Keycode = 38 'up arrow
.MovePrevious
End If
End With
If keycode = 40 Or Keycode = 38 Then Keycode = 0
End Sub