Dim Conexao As adodb.Connection
Dim Consultas As ADOX.Catalog
Dim Comando As adodb.Command

Set Conexao = New adodb.Connection
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BD.mdb;"
Set Consultas = New ADOX.Catalog
Set Consultas.ActiveConnection = Conexao

Set Comando = New adodb.Command
Comando.CommandText = "SELECT  Tabela1.* FROM Tabela1 Where Título Like """ & Text1.Text & """;"
Consultas.Views.Append "ConsultaTeste", Comando
Consultas.Views.Refresh

Set Comando = Nothing
Set Consultas = Nothing
Set Conexao = Nothing
...................................

No Text1.Text foi inserido uma condição de filtro, agora preciso abrir essa mesma consulta com o nome de ConsultaTeste e fazer um outro filtro, entenderam?

 

Muito obrigado a todos pela ajuda e atenção