Private Sub DieSucheWindows(X As String, Übergeben As String)
Static z1 As String
Static z2 As String
Dim Krit1 As String 
   If X = "" And chkoder.Value Then
        z1 = txtsuch1.Text
        z2 = txtsuch2.Text
        Krit1 = "Frage like '%" & z1 & "%' Or Frage like '%" & z2 & "%'"
        Datenbank1.Recordset.MoveFirst
        Datenbank1.Recordset.Find Krit1
        cmdweitersuchen.Enabled = True
        If Datenbank1.Recordset.EOF Then
            Datenbank1.Recordset.Bookmark = Lesezeichen
            MsgBox "Nicht gefunden!"
            cmdweitersuchen.Enabled = False
            Exit Sub
   End If
End Sub