Problema Com Access

[Guest - Diego Z. -]

Global Conexao As New ADODB.Connection
Global Clientes As New ADODB.Recordset
Global sql As String

Sub BancoDeDados()

On Error GoTo TrataErro
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\eptsystem.mdb"
Exit Sub

TrataErro:
MsgBox "Erro interno."
End

End Sub

Está dando erro na linha:

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\eptsystem.mdb"

Aparece a seguinte mensagem:

Run-time error '-2147467259 (80004005)':

Não foi possível abrir tabela 'MSysAccounts' no arquivo de informações do grupo de trabalho.

Referências:

Microsoft ActiveX Data Objects 2.1 Library
Microsoft DAO 3.51 Object Library
Microsoft Data Binding Colletion

Já testei em vários micros e acontece o mesmo erro.

No micro que eu estou fazendo e testando o código se eu iniciar o projeto novamente e copiar os códigos para este novo projeto. Não dá problema.

Mas se eu for tentar rodar outro dia o erro acontece de novo.

Fiz outros aplicativos que acessavam da mesma forma e nos mesmos micros e não deu problema.

E este último eu não estou conseguindo.

Alguém poderia me ajudar?

[diegoinfo]

Descobri, o problema é a versão do OLEDB.

Só mudei pra 3.51 e pronto.

Vivendo e aprendendo.

Hehehe