expression = "Harchkfrei"
    Domain = "Hardware"
    Criteria = "Hardware.Harchkfrei = True And Hardware.HarStandortNr =" & _
      hStaKeynr & " "
    hAnz = XDCount(expression, Domain, , Criteria)
    If hAnz = 0 Then

Public Function XDCount(expression As String, Domain As String, Optional _
  DBPfad, Optional Criteria) As Variant
Dim strSQLDF              As String
On Error GoTo Err_XDCount
    strSQLDF = "SELECT COUNT(" & expression & ") FROM " & Domain
    If (Not IsMissing(DBPfad)) Then
        If (Len(Nz(DBPfad, "")) > 0) Then strSQLDF = strSQLDF & " IN " & Chr( _
          34) & DBPfad & Chr(34)
    End If
    If (Not IsMissing(Criteria)) Then
        If (Len(Nz(Criteria, "")) > 0) Then strSQLDF = strSQLDF & " WHERE " _
          & Criteria
    End If
    strSQLDF = strSQLDF & ";"
    XDCount = DBEngine(0)(0).OpenRecordset(strSQLDF, dbOpenForwardOnly)(0)
    Exit Function
Err_XDCount:
    XDCount = Null
End Function