Beh, dire che dovresti controllare il numero di records presenti in una tabella.
Non usare la proprieta' recordcount di ADO, non e' affidabile se non in determinati casi.
Piuttosto usa una "SELECT COUNT" oppure fai un check sulle proprieta' BOF ed EOF.

Esempio

Dim rst as new ADODB.Recordset

rst.open... ecc...

if (rst.BOF and rst.EOF)
'Il recordset e' vuoto
else
'Ci sono dei records
End If

Tutto chiaro?