Datensuche mit Seek

[garfield46]

Hallo, ich brauche Eure Hilfe,
Mein Problem:
Ich hatte für die Arbeit ein Programm in Access2 geschrieben, mit einer Tabelle, die als Protokoll-Tabelle diente. Die einzelnen Felder Dieser Tabelle habe ich mit index und Seek ansprechen können. Siehe Vba-Code:
'****************************************************************************
'* Autor: garfield *
'* Datum: 14.05.1998 *
'* *
'* Aktualisiere die Log Datei *
'* *
'****************************************************************************
Dim db1 As Database, tkunden As Recordset
Dim tbon As Recordset
Dim var1 As String
Dim Arbeitsbereich As Workspace, datenbank1 As Database
Dim datei1 As String
'****************************Log-Datei***************************************
datei1 = "D:\ACCESS\service.mdb"
Set Arbeitsbereich = DBEngine.Workspaces(0)
Set datenbank1 = Arbeitsbereich.OpenDatabase(datei1)
Set tbon = datenbank1.OpenRecordset("LogDat")
tbon.Index = "prog"
tbon.Seek "=", "LRDr"
tbon.Edit
tbon.[Von_Dt] = Date
tbon.Update
tbon.Close

End Sub

Es erscheint dann immer die Meldung, Methode oderDatenobjektnicht gefunde, Fehler 461.

Wer weiß, wo ich dort den Fehler habe und wie man ihn beseitigen kann?

ich sage schon mal vielen Dank im Voraus für eure Hilfe.