'Datenbank und Tabelle öffnen
    Dim Db As Database
    Dim Tabelle As Recordset
    Dim dbFile As String
 
    dbFile = App.Path + "\STADT.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, True, True)
    Set Tabelle = Db.OpenRecordset("rezept")
 
'Index definieren
 
Dim Index As New Index
 
Index.Name = "Rezeptname"
Index.Primary = True 'Da Primärschlüssel
Index.Unique = True
Index.Fields = "Rezeptname" 'So heißt das Datenfeld das den Index bilden soll
 
Db.TableDefs("rezept").Indexes.Append Index 'Schreiben des Indexes
 
Tabelle.Index = "Rezeptname" 'Setzen des Indexes auf Rezeptname
 
'Durchsuchen der Tabelle nach dem Wort Degen. Degen als BSP gewählt da dieses 
' in der entsprechenden Spalte steht
 
Tabelle.Seek "=", "Degen"
 
If Not Tabelle.NoMatch Then
  'Datensatz gefunden
  txt_name.Text = Tabelle("Rezeptname")
Else
  'kein Datensatz vorhanden
  MsgBox "Kein entsprechender Datensatz gespeichert."
End If

mfG.
Stephan