run-time erro 6

Bom dia pessoal... sou novo aqui no fórum e em Visual Basic.

Com isso gostaria de ter a ajuda de vocês...

Quero criar um programa que vai contar linha a linha de uma tabela porque depois vou fazer uma migração de Banco de Dados...

O programa está abaixo...

[i][b]Option Explicit

Private Sub conectarBanco()
Set BancoDeDadosAntigo = OpenDatabase("I:\Sistema de Gerenciamento de Cupons Cadastro\Versao_1.0.01\prjSGCC\BD\TELEMARKETING.MDB")
End Sub

Private Sub cmdSair_Click()
BancoDeDadosAntigo.Close
End
End Sub

Private Sub cmdTableSituacao_Click(Index As Integer)
migrarTableSituacao
End Sub

Private Sub Form_Load()
conectarBanco
End Sub
Private Function migrarTableSituacao()
Dim ssql As String
Dim contador As Integer

contador = 0

 ssql = "select * from tabela1"
 Set TableAntiga = BancoDeDadosAntigo.OpenRecordset(ssql)

 While Not TableAntiga.EOF
 contador = contador + 1
 Wend

 TableAntiga.Close
 MsgBox contador

End Function[/b][/i] Porém o micro trava... com a mensagem run-time error '6': overflow

Se eu for no immediate e pedir para ver o valor da variavel contador ele mostra 32767...

Já tentei trocar a tipo de variavel para double... dai da um número absurdo... 400 e tantos mil... sendo que a tabela tem 115000 registros..

Alguem tem alguma idéia?

Obrigado

Alex Mauricio da Silva

alexblumer@hotmail.com