Outputing individual records to seperate PDF via VBA

I want to output the pdf files based on each record. It means each record will have its own single pdf file and the file name will be based on the record's column name.

i am very close but i get a failure on line and cannot figure out why.

CurrentDb.QueryDefs("myReportRecordSource").SQL = strSQL

ive ripped most of the code from the attached forum. https://stackoverflow.com/questions/51333290/how-to-output-multiple-pdf-files-based-on-record-in-ms-access

Please may you help.
Manny



------------------------------------------------------

Dim strSQL As String
Dim rsGroup As DAO.Recordset
Dim ColumnName As String, myPath As String

myPath = "Z:\24AM\Oxygen\Operations\S&P Challenges\Challenges for " & ddate & "\ICE Challenges " & ddate & "\"

Set rsGroup = CurrentDb.OpenRecordset("SELECT DISTINCT ISIN FROM [S&PChallengesSupportT]", dbOpenDynaset)

Do Until rsGroup.EOF
ISIN = rsGroup![ISIN]
strSQL = "SELECT * FROM [S&PChallengesSupportT] WHERE ISIN = '" & [ISIN] & "';" 'copy sql from the report record source and put in the column name as a variable

CurrentDb.QueryDefs("myReportRecordSource").SQL = strSQL

' OUTPUT REPORT TO FILE
DoCmd.OutputTo acOutputReport, "BrokerSupportS&PR", acFormatPDF, _
myPath & [ISIN] & ".pdf", False
rsGroup.MoveNext
Loop