[SQL Excel - Problema no código]

Pessoal, tentei fazer o código de SQL no Excel deste vídeo ("https://www.youtube.com/watch?v=HHwNgYYDHsc"), mas estou encontrando o seguinte erro na linha rs_Consulta.Open str_consulta, ado_conexao.

"Erro em tempo de execução '3001' Erro de definição de aplicativo ou e definição de objeto"

Sabem me ajudar?

Sub Listar_dados()
    
    Dim rs_Consulta As ADODB.Recordset
       
    
    'Chama rotina de conexão
    Call Conectar_Excel 'Código está abaixo em azul
    
    'Seta RecordSet
    Set rs_Consulta = CreateObject("ADODB.Recordset")
    
    'Define da Query
    str_consulta = Planilha2.Range("d6")
    
    'Abre Recordset
    rs_Consulta.Open str_consulta, ado_conexao --------> ERRO NESSA LINHA
    
    'Cola Recordset na planilha
    Planilha2.Range("A12").CopyFromRecordset rs_Consulta
    
    'Fecha Conexão
    rs_Consulta.Close
    Set rs_Consulta = Nothing
    
End Sub

Sub Conectar_Excel()
    
    Dim Caminho As String
    Dim Arquivo As String
    
    'Planilha2.activate
    Caminho = Planilha3.Cells(6, 4)
    Arquivo = Planilha3.Cells(8, 4)
    
    'Caminho = "C:\Users\ipittigliani\Desktop\Projeto Bate de Carteira\Tentativa 2\"
    'Arquivo = "MMA_Abr19.xlsx"
    
    'Define String de Conexão
    str_conexao = _
        "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
            "DSN=TESTE_SQL;DBQ=" & Caminho & Arquivo & ";" _
            & "ReadOnly=0;DefaultDir=" & Caminho & ";" _
            & "DriverId=1046;FIL=excel 12.0;MaxBuffersize=2048;PageTimeout=5;"
            
    'Seta ADODB
    Set ado_conexao = CreateObject("ADODB.Connection")
    
    'Abre Conexão
    ado_conexao.Open str_conexao
    

End Sub