vba导入 oracle，提示ora_00913错误，如何解决？

ghuashi

现在想将一批数据导入到oracle时，可能由于字段过多，提示ora-00913错误，请教如何处理？
主要代码：
Dim r, c As Single
       Dim sqlStr As String
       For r = 1 To 100
           For c = 1 To 11
           Set rs = New ADODB.Recordset
           Dim CellsValue(11) As String
           CellsValue(c - 1) = ThisWorkbook.ActiveSheet.Cells(r, c).Value
           Next c
         
          sqlStr = "Insert Into fenghuang3(Id_num,code,name,guba,income,price,up_down_per,up_down,chengjiao,date_id,history) VALUES('" & CellsValue(0) & "','" & CellsValue(1) & "','" & CellsValue(2) & "','" & CellsValue(3) & "','" & CellsValue(4) & "','" & CellsValue(5) & "','" & CellsValue(6) & "','" & CellsValue(7) & "','" & CellsValue(8) & "','" & CellsValue(9) & "','" & CellsValue(10) & "','" & CellsValue(11) & "')"
           

          rs.Open sqlStr, conn

提示错误：

hwc2ycy

前面的连接字符串没有？

ghuashi

前面有链接定义：
  Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strHost, strDatabase, pwd, strUser, strPassword As String
    Set conn = New ADODB.Connection
     
     
    strHost = "localhost"
    strDatabase = "ORCL"
     
    strUser = "system"
    strPassword = "test"
     
    conn.ConnectionString = "Driver={Microsoft ODBC for Oracle}; " & _
    "CONNECTSTRING=(DESCRIPTION=" & _
    "(ADDRESS=(PROTOCOL=TCP)" & _
    "(HOST=" & strHost & ")(PORT=1521))" & _
    "(CONNECT_DATA=(SERVICE_NAME=" & strDatabase & "))); uid=" & strUser & " ;pwd=" & strPassword & ";"
     
    conn.CommandTimeout = 100000
     
    conn.Open
     
    Set rs = New ADODB.Recordset
     
    rs.Open "fenghuang3", conn, adOpenKeyset, adLockBatchOptimistic

因为代码也是东拼西凑的，现在怀疑String类型长度、CellsValue、以及vba跟oracle对接限制有问题。