With sevText8
    .ColumnAdd , "Leistungstrager"
    .ColumnAdd , "LeistungstragerNR"
    .ColumnAdd , "Kurzel"
    .Columns(2).Visible = False
    .Columns(3).Visible = False
    .DisplayColumn = 1
    .BoundColumn = 2
    .AutoComplete = True
    sSql = "SELECT Firmenname, LeistungstragerNr, Kurzel FROM Leistungstrager" & _
      "ORDER BY Leistungstrager.Firmenname"
    Set .Recordset = oDB.OpenRecordset(sSql)
  End With

Frank