Dúvida SELECT * from () WHERE ()

[rodriggobass]

Boa noite. Estou há alguns dias tentando fazer funcionar algo que acredito ser bem simples, mas não consegui. Li alguns posts do site, mas ainda assim não consegui resolver o problema. tenho uma planilha simples de cadastro em banco de dados do access. Tudo funciona bem, inclusivo listar os dados da tabela no excel. Mas só conseguir listar os dados completos. Preciso buscar dados filtrados por uma coluna específica, preenchida com nomes de funcionários. Acredito que minha sintaxe não está errada, mas quando rodo o código, ocorre "Erro de automação". Podem me ajudar, por favor?

Código: Selecionar todos

Dim filtroConexao As ADODB.Connection 'Esta variável é pública

Public Sub carregarDadosComFiltro()
    Dim nome As String
    nome = Range("J1").Value

    Dim filtro As ADODB.Recordset
    Set filtro = New ADODB.Recordset

    FiltroConectar [highlight=yellow]'Chama a sub que conecta o banco
    'filtro.Open "Select * from Contratos", filtroConexao 'Esta é a linha que carrega os dados completos(está off)
    filtro.Open "Select * from Contratos where Funcionario like'" & """ & nome & """, filtroConexao 'Esta é a linha que deve carregar os dados filtrados.

    Sheets("Contratos").Range("a3:h1048576").ClearContents
    Sheets("Contratos").Cells(3, 1).CopyFromRecordset filtro
    
    If Not filtro Is Nothing Then
        filtro.Close
        Set filtro = Nothing
    End If
    filtroDesconectar 'Chama a sub que desconecta o banco
End Sub

[Reinaldo]

Talvez assim
Sql = "Select * from Contratos where Funcionario like *" & nome & "*"
filtro.Open Sql, filtroConexao 'Esta é a linha que deve carregar os dados filtrados.

[rodriggobass]

Talvez assim
Sql = "Select * from Contratos where Funcionario like *" & nome & "*"
filtro.Open Sql, filtroConexao 'Esta é a linha que deve carregar os dados filtrados.

Boa noite, Reinaldo. Obrigado por responder.
Tentei desta forma, mas deu o mesmo erro. Como a variável sql deve ser declarada? Tentei como string, como ADODB.Connection e como ADODB.Recordset. Mas de ambas as formas retorna erro de automação.

[rodriggobass]

Reinaldo, consegui resolver assim:

filtro.Open "Select * from Funcionarios where Nome like """ & nome & """", filtroConexao

até....