Hvad er galt - 20

Jeg har lavet et modul med følgende kode:

Option Compare Database
Option Explicit

Public Sub FindAntalRecord(AntalRecord As Integer, TblNavn As String, ForSp As String)
  AntalRecord = DCount(\"TblNavn\", \"ForSp\")
End Sub

I min Access-rapport er koden:

Private Sub Report_Open(Cancel As Integer)
  Public FindAntalRecord(AntalRecord, Antal_Deltagere_Atletik, Atletik_For)
  If AntalRecord = 0 Then
    MsgBox (\"Der er ingen, som er tilmeldt i denne disciplin\")
    Cancel = -1
  End If
  Linie = 0
  AntalIalt = 0
  Total = 0
  FoersteGang = True
End Sub

Når jeg køre rapporten får jeg følgende fejl:

Invalid attribute in Sub or Function.

Hvad  gør jeg galt