AccessTr.neT

"SELECT Count(MSysObjects.Name) AS SayName" & _

    " FROM MSysObjects" & _

    " GROUP BY MSysObjects.Type" & _

    " HAVING (((Count(MSysObjects.Name)) Not Like 'MSYS*') AND ((MSysObjects.Type)=4));"

cümlesi ile ODBC ile bağlı tabloların sayısını alabiilliyoruz
bunu değişkene nasıl aktarabiliriz

CurrentDb.OpenRecordset(sql).Fields(0).Value

böyle imiş

recordset oluşturup, recordcount komutuyla alabilirsiniz yada sorguda kullanilan koşulları DCount fonksiyonuna yazarak