Dim CurRec As String
Dim CurIdx As String
 
'zunächst aktuellen Datensatz-Zeiger merken
GetBookmark Tabelle, CurRec, CurIdx
 
'Suchen nach "Meier"
Tabelle.Seek "=", "Meier"
 
'Prüfen, ob Suche erfolgreich
If Not Tabelle.NoMatch Then
  'Datensatz gefunden
  DatensatzAnzeigen
Else
  'kein Datensatz vorhanden
  MsgBox "Kein entsprechender Datensatz gespeichert."
 
  'Datensatz-Zeiger auf ursprünglichen Datensatz zurücksetzen
  SetBookmark Tabelle, CurRec, CurIdx
End If

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD