Per completare il discorso iniziato da Alka:
codice:
' Acquisisce il n. di records presenti nel campo AnnoRicerca della TblSinAnno:
        RST.Source = "SELECT Count(*) AS AnnoRicerca FROM TblSinAnno;"
        RST.Open , ConSR, adOpenDynamic, adLockOptimistic
        RST.MoveLast
        sngNum = RST("AnnoRicerca")
        If sngNum > 0 Then
            ....
        End if
Ciao.