' autom. Neuzeichnen ausschalten
            .LockUpdate True
 
            ' Recordset-Kopie erstellen
            .CreateClone = True
 
            ' Recordset zuweisen
            .Clear True
            Set .Recordset = res.AdoRecordset
 
            'Spalte 1
            With .Columns(1)
                .Caption = "Kunden-Artikel-Nr"
                .HeadAlign = ALIGNMENT_CENTER
                .Position = 1
                .ColType = TYPE_COMBOBOX
                .Width = 1500
                .Align = ALIGN_CENTER
                .LockEdit = False
            End With
            .......
            'Automatisches Sortieren
            .AutoSort = False
 
            'interaktives Hinzufügen, Ändern und Löschen ermöglichen
            .AllowEdit = True
            .AutoUpdate = True
            .AllowDelete = True
 
            'Klicken auf Spaltenkopf
            .AllowColumnClick = False
 
            'interaktives Ändern der Spaltenbreiten
            .AllowColumnSizing = False
 
            ' Drag & Drop von Spalten
            .AllowColumnReorder = False
 
            'Mehrfachmarkierung
            .AllowMultiSelect = False
 
            'Anzeigen der Sortierungssymbole
            .ShowSortSymbols = False
 
            'feststehende Spalte anzeigen
            .FixedCol = True
            .FixedColCount = 1

With oComboBox
   Set .Recordset = res.AdoRecordset
 
   'Breite der aufgeklappten Liste
   .Width = 6500
 
   '1. Spalte an das Datenfeld im DataGrid binden
   .BoundColumn = 1
   '1. Spalte ausblenden
   'LFN-Artikel
   .ColVisible(1) = False
 
   '2. Spalte an das Eingabefeld binden
   'Artikel-Nr-Kunde
   .DisplayColumn = 2
   .ColWidth(2) = 1500
   .......
End With