Dim qd As DAO.QueryDef
    Dim vt As DAO.Database
    Dim sorgu As String
    Dim yol As String
 
    yol = CurrentProject.Path & "\vt1.accdb"  'bağlanacak veri tabanı adı
 
     ' burada ise sorgu'yu kendin oluştururabilirsiniz..
    sorgu = "select * from tablo1 in ''[ms access;database=" & yol & "];"
 
 
   Const GeciciSorgu As String = "sorguismi"   'bir sorgu ismini değiştirebilirsiniz..
 
   Set vt = CurrentDb
   Set qd = vt.CreateQueryDef(GeciciSorgu, sorgu)
' normalde sorguyu vt oluşturuyor ama sorguda göremeye bilirsiniz.. 
'siz sıkıştır onar dediğinizde sorgu yu göreceksiniz.

SELECT *
FROM tablo1 IN '' [ms access;DATABASE=C:\Documents AND Settings\Belgelerim\vt1.accdb];