With Me!Lieferanten
             ' autom. Neuzeichnen ausschalten
             .LockUpdate True
             .BalloonTip = True
             .FooterVisible = True
             .FooterBackColor = vbButtonFace
             .FooterFont.Bold = True
             ' Recordset-Kopie erstellen
             .CreateClone = True
             ' Recordset zuweisen
             .Clear True
             Set .Recordset = rs
             ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
             .ReadColumnWidth "MyApplication", "lieferanten", "ColWidths"
             ' autom. Sortierung aktivieren
             .AutoSort = True
             ' Mehrfachselektion zulassen
             .AllowMultiSelect = False
             ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
             .AllowEdit = True
             .AutoUpdate = True
             .AllowDelete = True
             ' interaktives Ändern der Spaltenbreiten zulassen
             .AllowColumnSizing = True
             ' Drag & Drop von Spalten zulassen
             .AllowColumnReorder = True
             ' Wheelmaus-Unterstützung aktivieren
             .WheelMouse = True
             ' autom. Neuzeichnen einschalten
             .LockUpdate False
             .Columns(1).ColType = TYPE_COMBOBOX
             .Columns(1).Width = 600
             .Columns(2).ColType = TYPE_COMBOBOX
             .Columns(2).InputType = INPUT_TEXT
             .Columns(2).MaxInputLength = 0
             .Columns(2).Width = 2600
             .Columns(2).Align = ALIGNMENT_LEFT
             .Columns(3).Visible = False
             .Columns(4).Visible = False
             .Columns(5).Visible = False
             .Refresh
              '1. Zeile selektieren
             .Row = 1
             ' ursprüngliches Recordset zerstören
             rs.Close
            Set rs = Nothing
         End With