आपको QueryDef . का उपयोग करने की आवश्यकता है पास-थ्रू क्वेरी बनाने के लिए आपत्ति करें, फिर .OpenRecordset के माध्यम से रिकॉर्डसेट खोलें QueryDef की विधि। निम्नलिखित कोड मेरे लिए काम करता है:
Dim qdf As DAO.QueryDef, rst As DAO.Recordset
Set qdf = CurrentDb.CreateQueryDef("")
qdf.Connect = "ODBC;Driver=SQL Server;Server=.\SQLEXPRESS;Trusted_Connection=Yes;"
qdf.SQL = "SELECT GetDate() AS qryTest"
qdf.ReturnsRecords = True
Set rst = qdf.OpenRecordset
Debug.Print rst!qryTest
rst.Close
Set rst = Nothing
Set qdf = Nothing
