Private Sub Form_Load()
  Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyUp
      KeyCode = 0
      ' hier Dein Code reinschreiben (vermutlich so):
      Me.Grid1.MovePrevious
 
    Case vbKeyDown
      KeyCode = 0
      ' hier Dein Code reinschreiben (vermutlich so):
      Me.Grid1.MoveNext
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de