Private Sub sevGrid3_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
                                  oComboBox As sevDataGrid2.EditComboBox)
    With sevGrid3
        If .Columns(nCol).Key = "LtSprache" Then
            With oComboBox
              .AddItem "Deutsch"
              .AddItem "Englisch"
              .AddItem "Französisch"
              .AddItem "Italienisch"
            End With
        End If
    End With
End Sub