How do I programatically use a dynamic paramatized query as .RST

SELECT HazMart.YR, HazMart.Mo, HazMart.[10156Rpt]
FROM HazMart
WHERE (((HazMart.YR)=[FORMS]![DateParmswMonths]![combo89]) AND ((HazMart.Mo)=[FORMS]![DateParmswMonths]![combo93]));



Public Function OpenFirstAttachmentAsTempFile(ByRef rstCurrent As DAO.Recordset, ByVal strFieldName As String) As String

    Dim rstChild As DAO.Recordset2
    Dim fldAttach As DAO.Field2
    Dim strFilePath As String
    Dim strTempDir As String

    strTempDir = Environ("Temp") ' Get the Temp directory from the environment variable.
    If Right(strTempDir, 1) <> "\" Then strTempDir = strTempDir & "\" ' Make sure the path always ends with a backslash.
        Set rstChild = rstCurrent.Fields(strFieldName).Value ' the .Value for a complex field returns the underlying recordset.
        strFilePath = strTempDir & rstChild.Fields("FileName").Value ' Append the name of the first (and only) attached file to temp dir.
        If Dir(strFilePath) <> "" Then ' the file already exists--delete it first.
        VBA.SetAttr strFilePath, vbNormal ' remove any file attributes (e.g. read-only) that would block the kill command.
        VBA.Kill strFilePath ' delete the file.
    End If

    Set fldAttach = rstChild.Fields("FileData") ' The binary data of the file.
    fldAttach.SaveToFile strFilePath
    rstChild.Close ' cleanup
    VBA.Shell "Explorer.exe " & Chr(34) & strFilePath & Chr(34), vbNormalFocus ' Use Windows Explorer to launch  the file.

End Function 'OpenFirstAttachmentAsTempFile

Select allOpen in new window

Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    
    Const cstrQueryName = "QryHazMart"
    'Const strTable = "HazMart"
    Const strField = "10156Rpt" ' Attachment field in Table1

    Set dbs = CurrentDb
       Set rst = dbs.OpenRecordset(cstrQueryName)
 

       rst.Close
End Function

Select allOpen in new window