ERRO NA CONEXÃO

ELIEUDOPDS 28/03/2025 18:50:55
#504896

Galera, boa noite. Por favor vejam, se poderem, veja meu código abaixo:

Em General Declarations
Dim Con As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Private Sub Form_Load()
Call AbreConexao

With Rs
.ActiveConnection = Con
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "Select * From Funcionarios"
End With
End Sub

Private Sub AbreConexao()
If Con.State = 1 Then
Con.Close
End If

Con.ConnectionString = "Provider = Microsoft.ace.oledb.12.0;data source=" & App.Path & "\Dados.accdb; Jet OLEDB;"
Con.Open

End Sub

Mas quando chega em Con.Open da o erro:
Run-time error 3706
Provedor não encontrado. É possível que ele não esteja instalado corretamente

Em References marquei:
Microsoft Activex Data Objects 6.1 Library e
Microsoft Activex Data Objects Recordset 6.0 Library
O banco (Dados.accdb) tá lá na pasta e dá esse erro.

Onde estou errando?

Um abraço a todos