run-time erro 6

[Alex Blumer 0]

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

[scorpio 7]

Por que não faz

select count(*) REGS from tabela

?