Suchfunktion (And) in Access programmieren

[AntonS]

Hallo,
ich habe versucht eine And-Suchfunktion in Access zu programmieren:

Private Sub Suchen_Click()
On Error GoTo Err_Suchen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = ""

    stDocName = "Personen"
    VName.SetFocus
    If VName.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Vorname]= '" & Me![VName] & "' and "
    End If
    Me.SetFocus
    NName.SetFocus
    If NName.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Nachname]= '" & Me![NName] & "' and"
    End If
    Me.SetFocus
    Strasse.SetFocus
    If Strasse.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Strasse]= '" & Me![Strasse] & "' and"
    End If
    HNr.SetFocus
    If HNr.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Hausnummer]= '" & Me![HNr] & "' and"
    End If
    PLZ.SetFocus
    If PLZ.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[PLZ]= '" & Me![PLZ] & "' and"
    End If
    Me.SetFocus
    '###verursacht Fehler###
    Geburtsdatum.SetFocus
    If Geburtsdatum.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Geburtsdatum]= '" & Me![Geburtsdatum] & "' and"
    End If
    Me.SetFocus
    '###verursacht Fehler###
    GroesseVon.SetFocus
    If GroesseVon.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Groesse] >= '" & Me![GroesseVon] & "' and"
    End If
    Me.SetFocus
    '###verursacht Fehler###
    GroesseBis.SetFocus
    If GroesseBis.Text <> "" Then
        'stLinkCriteria = stLinkCriteria & "[Groesse] <= '" & Me![GroesseBis] & "' and"
    End If
    Me.SetFocus
    Geschlecht.SetFocus
    If Geschlecht.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Geschlecht]= '" & Me![Geschlecht] & "' and"
    End If
    Me.SetFocus
    Kategorie.SetFocus
    If Kategorie.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Kategorie]= '" & Me![Kategorie] & "' and"
    End If
    Me.SetFocus
    Augenfarbe.SetFocus
    If Augenfarbe.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Augenfarbe]= '" & Me![Augenfarbe] & "' and"
    End If
    Me.SetFocus
    Haarfarbe.SetFocus
    If Haarfarbe.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Haarfarbe]= '" & Me![Haarfarbe] & "' and"
    End If
    Me.SetFocus
    '###verurschact Fehler###
    IDNR.SetFocus
    If IDNR.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[ID]= '" & Me![IDNR] & "' and"
    End If
    Me.SetFocus
    If stLinkCriteria = "" Then
        MsgBox ("Sie haben kein Kriterium eingegeben")
        GoTo Exit_Suchen_Click
    End If
    stLinkCriteria = stLinkCriteria & "[ID] > 0"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Suchen_Click:
    Exit Sub

Err_Suchen_Click:
    MsgBox Err.Description
    Resume Exit_Suchen_Click
    
End Sub

Leider tritt dabei folgender Fehler ein:

Die Aktion OpenForm wurde abgebrochen.

Was ist der Fehler?
Vielen Dank für die Antwort schon im vorraus,
---
Anton S.