If Me.ActiveControl Is Grid1 Then
 
    With Grid1
      Select Case KeyCode
 
        Case vbKeyUp
            MsgBox "The Up key was Pressed"
            KeyCode = 0 'cancels the key pressed
        Case vbKeyDown
            MsgBox "The Down key was Pressed"
            KeyCode = 0 'cancels the key pressed