Private Sub Grid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As Object)
    If nCol >= 3 Or nCol <= 8 Then
        Dim A1 As DAO.Recordset
        Dim n As Integer
 
        Set A1 = CurrentDb.OpenRecordset("select id, bezeichnung from" & _
          "fehlercode order by id")
 
        If A1.RecordCount <= 0 Then
        Else
            A1.MoveLast
            A1.MoveFirst
            With Grid1
                With oComboBox
                    .ListRowsMax = 10
                End With
                For n = 1 To A1.RecordCount
                    .ComboAddItem A1("id")
                    A1.MoveNext
                Next n
            End With
        End If
  End If
End Sub

Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  If Left(Grid1.Columns(Grid1.Col).key, Len(Grid1.Columns(Grid1.Col).key) - 1) _
    = "Fehler " Or Grid1.Columns(Grid1.Col).key = "Gesperrt" Or Grid1.Columns( _
    Grid1.Col).key = "Bemerkung" Then
    Select Case KeyCode
        Case 37
            If Grid1.Col - 1 > 2 Then
                Grid1.DoEdit Grid1.row, Grid1.Col - 1
            End If
        Case 38
            If Grid1.BOF = False Then
                Grid1.DoEdit Grid1.row - 1, Grid1.Col
            End If
        Case 39
            If Grid1.Col + 1 < 13 Then
                Grid1.DoEdit Grid1.row, Grid1.Col + 1
            End If
        Case 40
            If Grid1.EOF = False Then
                Grid1.DoEdit Grid1.row + 1, Grid1.Col
            End If
    End Select
End If
End Sub