Private Sub Grid0_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid3.EditComboBox)
 
  With sevGrid1
    If nCol = .GetCol("PLZ") Then
      ' ComboBox an Recordset binden
      With oComboBox
        Set .Recordset = odb.OpenRecordset("SELECT ID, PLZ, Ort FROM tblPLZ" & _
          "ORDER BY PLZ")
 
        ' ID-Spalte an das DataGrid-Recordset binden
        .BoundColumn = 1
 
        ' PLZ-Spalte bei der Auswahl in die Edit-TextBox übernehmen
        .DisplayColumn = 2
 
        ' Breite der ComboBox-Liste festlegen
        .Width = 3000
 
        ' Max. 10 sichtbare Zeilen in der aufgeklappten Liste anzeigen
        .ListRowsMax = 10
 
        ' 1. Spalte (ID) ausblenden
        .ColVisible(1) = False
 
        ' Breite der 2. Spalte (PLZ) festlegen
        .ColWidth(2) = 700
 
        ' Spaltenbeschriftung
        .ColCaption(2) = "Plz"
        .ColCaption(3) = "Ort"
 
        ' Spaltenbezeichner anzeigen
        .ColumnHeaderVisible = True
      End With
    End If
  End With
End Sub