Private Grid_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEnd Then rs.MoveLast If KeyCode = vbKeyHome Then rs.MoveFirst En Sub