Dim SatzPosition As Variant
 
If Maschinenparameter.RecordCount > 0 And Not Maschinenparameter.BOF Then
  Maschinenparameter.MoveFirst
    Do While Not Maschinenparameter.EOF
      If Maschinenparameter.Fields("f0") = Suchvariable Then
        SatzPosition = Maschinenparameter.Bookmark
         meldung = 1
        Exit Do
      End If
    Maschinenparameter.MoveNext
  Loop
End If