em contagem de registros de uma tabela

ola pessoal estou com o seguinte problema

tenho uma tabela com 22000 registros e estou utilizando o seguinte codigo para me conectar ao banco

Dim conexao As ADODB.Connection

Set conexao = New ADODB.Connection

Dim tabela As ADODB.Recordset

Set tabela = New ADODB.Recordset

Dim sql

Dim contador As Integer

If conexao.State = adStateClosed Then

conexao.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0;" & _

"Data Source = x:\suporte97.mdb;Persist Security Info=False;"

conexao.Open

End If

sql = "select * from tbdepto"

tabela.Open sql, conexao

'=============

aqui esta o problema

não estou conseguindo inserir um codigo que conte todos os registros

fiz este

while not tanela.eof

contador = contador + 1

wend

ai o programa fica louco e entra em looping infinito

onde estou errado

grato