Private Sub Form_Load()
 
  .....
 
  With sevText1
    .Style = rsDropDownList
 
    .ColumnAdd , "text", 1500
    .ColumnAdd , "id", 100
 
    .AddItem "1" & vbTab & "Leistung"
    .AddItem "2" & vbTab & "Gutschrift"
    .AddItem "3" & vbTab & "Storno"
 
    .DisplayColumn = 2
    .BoundColumn = 1
    .Columns(1).Visible = False
 
    .Sorted = True
 
    .AutoComplete = True
  End With
 
  .....
 
    dbFile = App.Path & "\Daten\Data.mdb"
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Sql = "SELECT * FROM Leistungen WHERE Leistungen.LeistungID LIKE " & _
      Form17.Grid1.SelectedItem.CellText(1)
    Set rS = db.OpenRecordset(Sql)
 
    .....
 
    sevText1.Text = rS("Leistungsart")
    rS.Close
    db.Close
 
    .....

Frank