Code to set Pass-Through Query Return Records Property

'Function CreateSPT(SPTQueryName As String, strSQL As String, bolReturnRecords As Boolean)  'bolReturnRecords not used, remove?
Function CreateSPT(SPTQueryName As String, strSQL As String)
'Generate a Pass-Through query then run it
'Params: SPTQueryName - name of the query (will be deleted and recreated if exists),
'        strSQL - query to run on SQL Server include Stored Procedures (Using EXEC)
'Example 1: CreateSPT ("Test", "Select * from Users")  'creates a Pass-Through Query called test with the "Select..." statement
'Example 2: CreateSPT("Generic_SPT", "EXEC RenameTBL ""Commitment_Outlook_bak"",""Commitment_Outlook_bak1""")
'Example 2: CreateSPT ("Generic_SPT", "EXEC sp_rename ""Commitment_Outlook_bak1"",""Commitment_Outlook_bak""")  'using system SP
 
  Dim cat As ADOX.Catalog
  Dim cmd As ADODB.Command
 
  DoCmd.Close acQuery, SPTQueryName
'  DoCmd.SetWarnings False
  On Error Resume Next
  DoCmd.DeleteObject acQuery, SPTQueryName
  On Error GoTo 0
  Set cat = New ADOX.Catalog
  Set cmd = New ADODB.Command
  cat.ActiveConnection = CurrentProject.Connection
  Set cmd.ActiveConnection = cat.ActiveConnection
  cmd.CommandText = strSQL
  cmd.Properties("Jet OLEDB:ODBC Pass-Through Statement") = True
'  cmd.Properties("Return Records") = bolReturnRecords  'no worky but On Error Resume Next stopped the error
  cmd.Properties("Jet OLEDB:Pass Through Query Connect String") = _
       "ODBC;DSN=DTLData_Dev;database=DTLData;UID=sa;PWD=;"
  cat.Procedures.Append SPTQueryName, cmd
'  On Error Resume Next
  DoCmd.OpenQuery SPTQueryName
 
  Set cat = Nothing
  Set cmd = Nothing
End Function