porque desta instrução if
If Cadastro.EOF = False And Cadastro.BOF = False Then
MDI_principal.StatusBar1.Panels(1).Text = "TOTAL DE PESSOAS CADASTRADAS: " & Cadastro.RecordCount
End If
traduzindo a instrução acima:
se não for nem começo e nem fim dos registros
mostrar o numero de registros
está meio estranho isto
isto é para verificar se o registro está vazio? se for isso
porque você não faz assim
If Cadastro.RecordCount <> 0 then
MDI_principal.StatusBar1.Panels(1).Text = "TOTAL DE PESSOAS CADASTRADAS: " & Cadastro.RecordCount
else
MDI_principal.StatusBar1.Panels(1).Text = "Não existe cadastros em seu Banco de Dados!"
End If
Se não for este o problema, que eu acredito que não seja, então tente uma adptação em seu código, desculpe a gambiarra, mas é uma solução veja como.
If Cadastro.RecordCount <> 0 then
Dim C As Integer
cadastro.MoveFirs_t
While not cadastro.EOF
C=C+1
cadastro.MoveNex_t
wend
MDI_principal.StatusBar1.Panels(1).Text = "TOTAL DE PESSOAS CADASTRADAS: " & C
else
MDI_principal.StatusBar1.Panels(1).Text = "Não existe cadastros em seu Banco de Dados!"
end if
Tente não custa nada
diga se funcionou
