Åbne database Acc97/Acc2000 vha VBA

Jeg har kopieret en funktion fra Access 97 til Accces 2000, men har problem med at få det til at køre. Første sted compileren \"brokker\" sig er

mydb As Database

Userdefined type not defined

Hvad skal jeg rette, for det virker - jeg vil helst ikke indlæse tools/referencer - da applikationen skal kunne køre på andre PCere. (Jeg ved godt funktionens formål er noget \"snot\", men den er kun brugt som et eksempel).

Public Function Opdaterantal()
    Dim mydb As Database
    Dim A As Double
    Dim myset As Recordset
    Set mydb = CurrentDb
    Set myset = mydb.OpenRecordset(\"TB_subjectDb\")
             
        \'Optæl antal records
        If myset.RecordCount > 0 Then
          A = myset.RecordCount
          Else
          A = 0
        End If
        myset.Close
        mydb.Close
End Function