Private Sub Command1_Click()
 
    Dim Db As Database
    Dim Tabelle As Recordset
    Dim dbFile As String
 
    dbFile = App.Path + Text5 'Im Text5 wird der Name angegeben also: /NAME.mdb
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Inventar") 'Tabelle Inventar öffnen
    'Nächsten Datensatz anzeigen
     If Tabelle.RecordCount > 0 And Not Tabelle.EOF Then _
      Tabelle.MoveNext
     Text1 = Tabelle("Bezeichnung") 'Text1 erhält den Wert des Datenfeldes
     Tabelle.Close 'Tabelle schließen
     Db.Close 'Datenbank schließen
    Set Tabelle = Nothing 'Leer setzen
    Set Db = Nothing 'Leer setzen
End Sub

If Tabelle.RecordCount > 0 And Not Tabelle.BOF Then _
  Tabelle.MovePrevious

Inventar.Text5 = X 'Übergabe des Namens im Format: \NAME.mdb an Textfeld
Inventar.Data1.DatabaseName = App.Path + X 'Datafield auf Datenbank bringen
Inventar.Data1.RecordSource = "Inventar" 'RecordSource als Tabelle Inventar 
' angeben
Inventar.Text1.DataField = Tabelle("Bezeichnung") 'Dem Textfeld das DAtenfeld 
' Bezeichnung zuweisen.

mfG.
Stephan