dim rs as recordset
dim strFilter as string 
   set rs = me.recordsetclone
   strFilter = [feld1]="& parameter    'evtl. Hochkommas nicht vergessen
 
   rs.findfirst strFilter
   if rs.nomatch then 
       'nichts gefunden
   else
       ' gefunden
       ' Bildschirmzeiger auf den Datensatz stellen
       ' Wenn direkt mit dem me.recordset gearbeitet wird ist dies nicht nötig
       me.bookmark = rs.bookmark
  end if

Gru?
SR