Erro ao Abrir essa macro no Excel 2010 - Erro inesperado causado pelo drivers de banco de dados externo conexão

Question

Olá Galera.

Gostaria de uma ajuda de vocês, eu criei essa macro no Excel 2007 abaixo, porém ao Abrir em uma outra máquina com o Excel 2010 apresenta esse erro.

Erro em tempo de execução '-2147467259 (80004005)'

Erro inesperado causado pelo drivers de banco de dados externo conexão vba

Desde já muito obrigado.

Segue o código

Private Sub Workbook_Open()

Dim cn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim resul As String
Dim texto 'As Variant
Dim sqlstring As String
Dim wb As Workbook

'On Error GoTo trataErro

Set cn = New ADODB.Connection
Set rs1 = New ADODB.Recordset

If wb Is Nothing Then Set wb = ThisWorkbook

If Application.Version < 12 Then
    cn.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & wb.FullName & ";" & _
          "Extended Properties=Excel 8.0"
Else
    cn.ConnectionString = _
          "Provider=Microsoft.ACE.OLEDB.12.0;" & _
          "Data Source=" & wb.FullName & ";" & _
          "Extended Properties=Excel 8.0"
End If
   
    Plan11.ComboBox1.Clear

  
        sqlstring = "Select Distinct Regional "
        sqlstring = sqlstring & " From [Plan1$]"
        sqlstring = sqlstring & " where Regional is not null "
        sqlstring = sqlstring & " order by Regional"
       
       
        cn.Open
       
        rs1.Open sqlstring, cn
        
        Do Until rs1.EOF

            Plan11.ComboBox1.AddItem rs1!Regional
            rs1.MoveNext
        Loop
       
       
        rs1.Close
       
        cn.Close

'Exit Sub
'trataErro:
'    MsgBox "Error...", vbCritical, "Erro."
'    'Resume

End Sub