[Resolvido]Pesquisa na Tabela

Estou com um problema de código, tenho uma caixa de listagem (lstFuncionario) e um campo para digitar a pesquisa (txtPesquisa).

Quando eu altero o campo txtPesquisa (Evento Ao alterar), eu gostaria que ele preencha a caixa de listagem com os dados encontrados na tabela.

O código que estou usando é esse:

Código:

Private Sub txtPesquisa_Change()
    
    lstFuncionario.RowSource = "SELECT cod_Funcionario,Nome,Cargo,Ramal,Usuario,E-mail,Turno FROM Tabela Funcionarios WHERE ((Nome) Like '*" & [txtPesquisa].[Text] & "*')"
    lstFuncionario.Requery
    
    If Len([txtPesquisa].Text) > 0 Then
        Me.lblPesquisa.Caption = "Filtrado"
    Else
        Me.lblPesquisa.Caption = "Pesquisa"
        lstFuncionario.RowSource = ""
    End If
End Sub

Porém quando digito algo no campo txtPesquisa ele faz com que apareça o código na caixa de listagem (conforme imagem), acho que estou errando a sintaxe.

Alguém poderia me ajudar?

Bom dia,

Insira o código no evento "Após Atualizar"

Ele ainda não está executando o comando sql ao invés disso ele escreve o comando na caixa de listagem.

Acredito que tenha algum erro de sintaxe.

Poste o banco por favor, em versão 2000.

Estou sem a permissão para postar o BD por políticas internas.

O erro acredito ainda que esteja na linha que digito o código SQL, ele está reconhecendo como um texto e ñão um comando.

Sei que não é muito, mas se conseguir me ajudar com essas informações seria grato.

Problema resolvido através de um módulo de conexão, se alguém precisar do código pode me mandar PM que indicarei como resolvi. Obrigado.