' Datenbank öffnen
  Set oDB = DBEngine.OpenDatabase(CurrentDb.Name)

 ' SQL-Abfragestring
  sSQL = "SELECT AdressenID, Land, Strasse, PLZ, ORT FROM tbl_Adressen"
    .ColumnAdd oRs.Fields(0).Name, oRs.Fields("AdressenID").Name, 800, _
      ALIGNMENT_LEFT, True, 64, ALIGNMENT_LEFT
    .ColumnAdd oRs.Fields(1).Name, oRs.Fields("Land").Name, 1500, , , 64
    .ColumnAdd oRs.Fields(2).Name, oRs.Fields("Strasse").Name, 3000
    .ColumnAdd oRs.Fields(3).Name, oRs.Fields("PLZ").Name, 1500
    .ColumnAdd oRs.Fields(4).Name, oRs.Fields("Ort").Name, 3000

Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As Object)
    Dim nID As Long
 
    With Item
        .FixColText(1) = IIf(chkShowRowNumbers.Value <> 0, CStr(nRow), "")
        ' anstatt des Index, LandKurz in der Spalte Land anzeigen
        nID = Val(.CellText("Land"))
        oRsLand.Seek "=", nID
        If Not oRsLand.NoMatch Then
            .CellText("Land") = oRsLand.Fields("LandKurz")
        End If
    End With
End Sub

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
            End With
        End If
    End With
End Sub