Private Sub sevGrid_EditKeyDown(KeyCode As Integer, Shift As Integer)
    Select Case (KeyCode)
        Case 40: 'unten
            If Me.sevGrid.row < Me.sevGrid.rows Then
                Me.sevGrid.DoEdit Me.sevGrid.row + 1, Me.sevGrid.col
            End If
        Case 38: 'oben
            If Me.sevGrid.row > 1 Then
                Me.sevGrid.DoEdit Me.sevGrid.row - 1, Me.sevGrid.col
            End If
        Case 37: 'links
            If Me.sevGrid.col > 8 Then
                Me.sevGrid.DoEdit Me.sevGrid.row, Me.sevGrid.col - 1
            End If
        Case 39: 'rechts
            If Me.sevGrid.col < Me.sevGrid.Cols Then
                Me.sevGrid.DoEdit Me.sevGrid.row, Me.sevGrid.col + 1
            End If
        Case Else
    End Select
End Sub

Private Sub sevGrid_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, Cancel As Integer)
    If Me.sevGrid.Recordset("ID") = "" Or IsNull(Me.sevGrid.Recordset("ID")) _
    Then
        Me.sevGrid.Recordset.Edit
        Me.sevGrid.Recordset("ID").value = G_OBJ_TABLE.GetNextIndex("Tab2", _
          "ID") 'neue ID
        Me.sevGrid.Recordset.Update
        Me.sevGrid.RowRefresh
    End If
End Sub