If lebensakte.RecordCount > 0 And Not lebensakte.BOF Then
        lebensakte.MoveFirst
        Do While Not lebensakte.EOF
            If lebensakte.Fields("f6") = Suchvariable Then
                MsgBox (…Position….)
                meldung = 1
                Exit Do
            End If
            lebensakte.MoveNext
 
        Loop
    End If