Private Sub Grid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As Object)
    With Grid1
        If nCol = .GetCol("Land") Then
            ' ComboBox an Recordset binden
            With oComboBox
                Set .Recordset = oDB.OpenRecordset("SELECT ArtLandID, LandKurz" & _
                  "FROM tbl_Art_Land ORDER BY LandKurz")
                ' ArtLandID-Spalte an das DataGrid-Recordset binden
                .BoundColumn = 1
                ' LandKurz-Spalte bei der Auswahl in die Edit-TextBox übernehmen
                .DisplayColumn = 2
                ' Breite der ComboBox-Liste festlegen
                .Width = 300
                ' Max. 10 sichtbare Zeilen in der aufgeklappten Liste anzeigen
                .ListRowsMax = 10
                ' 1. Spalte (ArtLandID) ausblenden
                .ColVisible(1) = False
                ' Breite der 2. Spalte (LandKurz) festlegen
                .ColWidth(2) = 300
                ' Ausrichtung der 2. Spalte (LandKurz) festlegen
                .ColAlign(2) = ALIGNMENT_RIGHT
            End With
        End If
    End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de