[Resolvido]É possível abrir uma consulta igual ao do Access pelo (ADO ou DAO)?

É possível pelo vba, eu abrir uma consulta igual ao que tem no access, porém pelo ADO ou DAO? gostaria de usar essas conexões para não deixar conexão ativa, e também sempre que o banco de dados mudar de lugar não ter que ficar alterando consulta por consulta.

Sei que tem como fazer por formulários, porém gostaria de evitar um monte de formulários.

Veja este artigo:

http://www.fator-s.com/access/2012/02/22/criar-consultas-com-dao/


Cumprimentos

Boa tarde PILOTO!
NICE
Não é origem das mesmas ideias, mas o nosso amigo aqui  deu um jeito de pegar este mesmo conceito e criar uma ideia mais simples e básica!

Muito obrigado PILOTO, está aqui minha ideia que usufrui do seu site!

Criei 5 Consultas, e em cada uma delas coloquei como tipo instantanea, e quando clico no botão, ele então seta aquela consulta com a SQL desejável e abre a consulta, sem ter aquele monte de consulta, porém ainda continuo trabalhando com front end e mantendo o desempenho, já que só uso para fazer uma consulta super rápida!

Código:

Option Compare Database
Option Explicit
Private QueryCount As Integer

Public Function OpenQuery(Campo As String, Tabela As String, Where As String)
 Dim strSQL As String
 strSQL = "SELECT " & Campo & " FROM " & Tabela & " IN '" & caminho & "' WHERE " & Where
 Dim db As DAO.Database
 Dim qdf As DAO.QueryDef
 Set db = CurrentDb
FirstQuery:
 QueryCount = QueryCount + 1
 If QueryCount = 1 Then
 Set qdf = db.QueryDefs("ConsultaRapida1")
 qdf.SQL = strSQL
 DoCmd.OpenQuery ("ConsultaRapida1")
 ElseIf QueryCount = 2 Then
 Set qdf = db.QueryDefs("ConsultaRapida2")
 qdf.SQL = strSQL
 DoCmd.OpenQuery ("ConsultaRapida2")
 ElseIf QueryCount = 3 Then
 Set qdf = db.QueryDefs("ConsultaRapida3")
 qdf.SQL = strSQL
 DoCmd.OpenQuery ("ConsultaRapida3")
 ElseIf QueryCount = 4 Then
 Set qdf = db.QueryDefs("ConsultaRapida4")
 qdf.SQL = strSQL
 DoCmd.OpenQuery ("ConsultaRapida4")
 ElseIf QueryCount = 5 Then
 Set qdf = db.QueryDefs("ConsultaRapida5")
 qdf.SQL = strSQL
 DoCmd.OpenQuery ("ConsultaRapida5")
 ElseIf QueryCount > 5 Then
 QueryCount = 0
 GoTo FirstQuery
 End If
 
 Set qdf = Nothing
 Set db = Nothing
 
End Function

Muito bom.. se possível poste um pequeno exemplo.. seria de muita valia para o Fórum

Sucesso!

Logo postarei junto com o CascoV4 abraços!

O Fórum agradece o Retorno.