Private Sub GridBrevets_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid2.EditComboBox)
 
        '- Spalte: Brevets -
 
        If nCol = .GetCol("Brevet") Then
            szSQL = "SELECT ID, Brevet FROM Brevetliste WHERE CompanyID=" & Val( _
              .Text(nRow, "CompanyID")) & " ORDER BY ID ASC"
            With oComboBox
                Set .Recordset = DBS.OpenRecordset(szSQL, dbOpenSnapshot, _
                  dbOpenForwardOnly)
                .BoundColumn = 1
                .DisplayColumn = 2
                .ListRowsMax = 10
                .ColVisible(1) = False
                .Width = 2500
            End With
        End If
 
    End With
 
End Sub

        '- Feld: NEU Brevet -
 
        With .ColumnAdd("Brevet", "Kurs/Brevet")
            .Position = 5
            .ColType = TYPE_COMBOBOX
            .Width = 3400
            .LockEdit = False
        End With
 
        Set rsBrevets = DBS.OpenRecordset("Brevetliste")
        rsBrevets.Index = "ID"

CardManager (SmartCard Tools a la CARD)