Sub Datei() 
 
 
Dim Db As Database 'Datenbank öffnen 
Dim Tabelle As Recordset 
Dim dbFile As String 
 
dbFile = App.Path & "Datenbanktest.mdb" 
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) 
Set Tabelle = Db.OpenRecordset("okeydata") 
 
'Datensatz suchen 
 
Tabelle.Index = okeydata 
GetBookmark Tabelle, CurRec, CurIdx 
Tabelle.Seek ">=", "400000" 
If Not Tabelle.NoMatch Then 
If Tabelle("okeydata") Like "400000*" Then 
DatensatzAnzeigen 
Else 
MsgBox "Kein entsprechender Eintrag!" 
SetBookmark Tabelle, CurRec, CurIdx 
End If 
Else 
MsgBox "Kein entsprechender Eintrag!" 
SetBookmark Tabelle, CurRec, CurIdx 
End If 
 
 
'Datenbank schließen 
Tabelle.Close 
Db.Close 
Set Tabelle = Nothing 
Set Db = Nothing 
 
 
End Sub