Как устранить ошибку "Недостаточно хранилища для выполнения этой операции" в макросе Excel 2010?

Question

Когда я попытался подключить оракул DB с помощью макроса Excel 2010, он добился успеха. Я попытался выполнить запрос оракула и получить данные в Excel, затем он выдает ошибку выше.Может кто-нибудь сказать мне, как решить эту ошибку.

Sub Ora_Connection()
  Dim con As ADODB.Connection
  Dim rs As ADODB.Recordset
  Set con = New ADODB.Connection
  Set rs = New ADODB.Recordset
  Dim query As String
  Dim intColIndex As Integer
  On Error GoTo err
  strcon = "Driver={Microsoft ODBC for Oracle}; " & _
  "CONNECTSTRING=(DESCRIPTION=" & _
  "(ADDRESS=(PROTOCOL=TCP)" & _
  "(HOST=MyhostName)(PORT=myportName))" & _
  "(CONNECT_DATA=(SID=SIDName))); uid=UserID; pwd=Pwd;"
  con.Open (strcon)
  query = "Select * from table where column = 'value'"
  rs.Open query, con
  If Not rs.EOF Then 'to check if any record then
    Sheets("data").Range("A2").CopyFromRecordset rs
    For intColIndex = 0 To rs.Fields.Count - 1  'recordset fields
      Sheets("data").Cells(1, intColIndex + 1).Value = rs.Fields(intColIndex).Name
    Next
  End If
  con.Close
  Exit Sub
err:
  MsgBox "Following Error Occurred: " & vbNewLine & err.Description
  con.Close
End Sub