Sayın akem61, sorgu özelliğindeki kaynak kısmında currentproject.path kodunu çalıştıramazsınız.

Bunun yerine;
1-) sorgunun kaynağırı farklı veritabanındaki tablo olarak belirtmek yerine, bağlı tablo olarak diğer veritabanındaki tabloyu bağlayabilirsiniz. Sitede bağlı tablonun yeri değiştiğinde güncellemesi ile ilgili örnekler mevcut.

2-) Form oluşturun, forma ekleyeceğiniz butonun tıklandığında olayına

Dim Sorgum As QueryDef

Dim TabloYeri As String

CurrentDb.QueryDefs.Delete ("1")

TabloYeri = CurrentProject.Path

Set Sorgum = DBEngine(0)(0).CreateQueryDef("1", "SELECT tblTempRap.* FROM tblTempRap IN '" & TabloYeri & "\DataTemp.accdb'")

Sorgum.Close

kodu ekle, butonu tıkladığında 1 isimli sorguyu yeniler.