DoCmd.TransferSpreadsheet Causes Err#3027 Cannot Update. Database or Object is read-only.

One of my jobs is to make XL spreadsheets from Access data...we have recently gone to Access2000.  I will type below an abbreviated form of my code. When running the code, about 2/3 of the XL sheets are created and the others are not. During the run, I get error code 3027 when it hits the DoCmd.TransferSpreadsheet line.  I solved it for now by changing the "save to" directory from a desktop folder to the desktop. Ideas, anyone? I will paste below an abbreviated form of the code.

Option Compare Database
Option Explicit

Dim adThisDB As DAO.Database
Dim adRecSet1 As DAO.Recordset, adRecSet2 As DAO.Recordset
Dim adQueryDef As DAO.QueryDef
Dim strSQL1 As String, strSQL2 As String
Dim strParameter1 As String
Const strEmailDir = "C:\WINDOWS\Desktop\FolderX\"
Const strQuery = "qXX"

Private Sub SaveXL()

  Set adThisDB = CurrentDb
  strSQL1 = "SELECT FieldX FROM TableX GROUP BY FieldX"
  Set adRecSet1 = adThisDB.OpenRecordset(strSQL1, dbOpenSnapshot)
  adRecSet1.MoveLast
  adRecSet1.MoveFirst

  strParameter1 = adRecSet1.Fields(0)
  Set adQueryDef = adThisDB.QueryDefs(strQuery)

  strSQL2 = "SELECT , , , , FROM [TableX] WHERE [TableX].[FieldX]= '" & strParameter1 & "' "
  adQueryDef.SQL = strSQL2

  Do While Not adRecSet1.EOF

      DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, strQuery, strEmailDir & strParameter1 & ".xls", True
      adRecSet1.MoveNext

      strParameter1 = adRecSet1.Fields(0)
      strSQL2 = "SELECT , , , , FROM [TableX] WHERE [TableX].[FieldX]= '" & strParameter1 & "' "
            adQueryDef.SQL = strSQL2
       
  Loop

Clean up here...close and set to nothing

End Sub

Any help or ideas will be greatly appreciated.

Barbara