SQL-Afvikling i VB(A) 6.0

Here goes ..

Jeg har i nogen tid anvendt makro\'r i mit faktureringssystem, på det grundlag, at der havde
jeg mulighed for at slå advarsler/msgboxe/bruger.interaction_required fra (AngivAdvarsler=Nej).
Efter dette har jeg oplevet at Access helt dropper kommunikation med brugeren!! Sågar at en kunde
(med tilhørende information i samtlige tableller~Referentiel Integritet) blev slettet ved et fejl-
tast ! *RyStE* Det holder minus }( Derfor vil jeg gerne helt droppe behovet for Makroer/AngivAdvarser!
Da jeg seriøst skal til at træne funktioner & klasser, tænkte jeg at dette var en passende opgave..
Her er en funkionsbeskrivelse;

Dim Temp As Integer
Dim Tempier As Integer
Dim Tempest As Integer

Tempest = 0

DoCmd.RunMacro \"AktivitetCheck\"

\'SELECT Count([Aktivitet])
\'AS OpgaveAntal
\'INTO System
\'FROM Aktiviteter
\'WHERE
\'(((Aktiviteter.Udført)=[Forms]![Login]![Login])
\'AND
\'((Aktiviteter.Arbejdsdato)<Date())
\'AND
\'((Aktiviteter.Arbejdsbeskrivelse)=\"Skriv opgavebeskrivelse her\"));

DoCmd.RunMacro \"RykkerCheck\"

\'SELECT Count([Aktivitet])
\'AS RykkerAntal
\'INTO
\'System
\'FROM
\'Aktiviteter
\'WHERE
\'(((Aktiviteter.Udført)=[Forms]![Login]![Login])
\'AND
\'((Aktiviteter.[På Rykkerliste])=True));

Jeg har ingen idé om hvordan jeg får antallet af opgaver, der opfylder ovenstående betingelser, uden
brug af forespørgsler/SQL! D må være muligt at udregne denne simple integer anderledes ..

Piv, Zim