Hướng dẫn sửa lỗi database or object is read-only trong SQL

Bạn gửi đoạn code giúp gitiho nhé.

Dạ đây ạ:

Sub LoadDL()
   Dim cnn As Object, lrs As Object, sqlquery As String, dc As Long
   dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
   If dc >= 2 Then Sheet1.Range("A2:AD" & dc).ClearContents
       Set cnn = CreateObject("ADODB.Connection")
       Set lrs = CreateObject("ADODB.Recordset")
       cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=YES"";"
       cnn.Open
       sqlquery = "select*from [Customers$] where [Last Name] = 'Lee'"
       lrs.Open sqlquery, cnn
           For iCols = 0 To lrs.Fields.Count - 1
           Sheet1.Cells(2, iCols + 1).Value = lrs.Fields(iCols).Name
           Next
   Sheet1.Range("A3").CopyFromRecordset lrs
   lrs.Close
   cnn.Close
End Sub

Mình kiểm tra thì code của bạn hoạt động bình thường nha, có thể máy của bạn thiếu đi những dll trong bộ cài excel bạn nhé.