数组=recordset.getrows 数组赋值报错

一风云契一

Application.ScreenUpdating = False Set con = New ADODB.Connection con.CursorLocation = adUseClient con.Open "driver={mysql odbc 5.3 Unicode driver};server=localhost;option=3", "root", "123456" 'database=mysql1; 2: If con.State = adStateClosed Then     MsgBox "服务关闭中，详情见类模块MYSQL"     con.Open "driver={mysql odbc 5.3 Unicode driver};server=localhost;option=3", "root", "123456" 'database=mysql1;     GoTo 2 Else     Set 记录 = con.Execute("SELECT * FROM " & databasetable & " ;")     arr1 = 记录.GetRows      For r1 = LBound(arr1) To UBound(arr1)                 For c1 = LBound(arr1, 2) To UBound(arr1, 2)                          str1=str1 &  arr1(r1, c1) '这报错 运行时错误‘458’ 变量使用了一个Visual Basic 不支持的自动化(Automation)类型                 Next c1     Next r1: str1 = str1 & ";"

一风云契一

RT，大神求助！~

wang2one

看看报错时 arri(r1,c1)的值是什么