[решено] ошибка при выполнение SQL запроса на удаление к текущей книге

Добрый день!

Написал макрос для удаления записей из таблицы Excel.
Но при выполнения запроса на удаление (см. код ниже) выскакивает ошибка "Удаление данных в присоединенной таблице не поддерживается драйвером ISAM"

Можно ли как-то обойти эту ошибку? Что не так делаю?

Заранее всем спасибо!

код:

Код:

Sub SQL()

Dim myConnect, mySQL As String, myRecord As Object

Dim Data As String, strAddress As String

    Set myRecord = CreateObject("ADODB.Recordset")

 '   Set myConnect = CreateObject("ADODB.Connection")

    strAddress = Replace(ThisWorkbook.Sheets(1).Cells(1, 1).CurrentRegion.Address, "$", "")

    

    Data = "[" & ThisWorkbook.Sheets(1).Name & "$" & strAddress & "]"

'        myConnect.open "Provider=Microsoft.ACE.OLEDB.12.0;" & _

'           "Data Source=" & ThisWorkbook.FullName & ";" & _

'           "Extended Properties=""Excel 12.0;HDR=NO"""

        myConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

           "Data Source=" & ThisWorkbook.FullName & ";" & _

           "Extended Properties=""Excel 12.0;HDR=NO"""



    mySQL = "DELETE * FROM " & Data & ""

'    myConnect.Execute mySQL

    myRecord.Open mySQL, myConnect



End Sub