Option Explicit
'Datenbank öffnen
Dim Db As Database
Dim rs As Object
 
 
 
Private Sub Form_Load()
Dim Tabelle As Recordset
Dim dbFile As String
dbFile = App.Path + "\Koord.MDB"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset("Koord")
End Sub
 
 
Private Sub suche_Click()
 Dim sName As String
  Dim vBookmark As Variant
 
  vBookmark = rs.Bookmark   ________________________________FEHELER!
  sName = InputBox("Bitte Namen eingeben:")
  If sName <> "" Then
    ' Datensatz suchen
    rs.Find "Name = '" & sName & "'"
    If Not rs.NoMatch Then
      Text1.Text = rs.Fields("Name")
      Text2.Text = rs.Fields("Raum")
      Text3.Text = rs.Fields("Schrank")
      Text4.Text = rs.Fields("Reihe")
    Else
      MsgBox "Kein Datensatz mit dem Namen '" & sName & "' gefunden!"
      rs.Bookmark = vBookmark
    End If
  End If
End Sub
 
Private Sub Command2_Click()
Tabelle.Close
Db.Close
Set Tabelle = Nothing
Set Db = Nothing
Unload Me
End Sub