FernandoAP

Ola pessoal estou com um problema que ao executar um codigo de conexão com bd access diz active x não pode criar o objeto erro 429, já tentei de tudo... Public Cn As New ADODB.Connection Public Rs As New ADODB.Recordset Sub ConectarDB() Dim Banco As String Banco = [sBanco] Set Cn = New ADODB.Connection ------>Daqui não passa With Cn .Provider = "Microsoft.ACE.OLEDB.12.0" .open Banco End With End Sub