Tanto esse sistema, quanto qualquer outro que seja feito em VB 6, o erro está na linha de código que faz referencia ao banco de dados. (Porque não é apenas esse sitema que não quer rodar, são todos os sistemas que eu fiz em VB 6 que não funcionam).
No módulo eu declarei a variável:
Public db as DataBase
na Sub Main eu escrevi:
Set db = OpenDatabase("g:MeuProgramaBancoDeDados.mdb")
no debug o erro está nesta linha acima.
