帮忙看看这段代码为什么有错?

Question

Public Function ExporToExcel()
'*********************************************************
'* 名称：ExporToExcel
'* 功能：导出数据到EXCEL
'* 用法：ExporToExcel(sql查询字符串)
'*********************************************************
Dim Rs_Data As New ADODB.Recordset
Dim Irowcount As Integer
Dim Icolcount As Integer
    
    Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlQuery As Excel.QueryTable
    
    With Rs_Data
        If .State = adStateOpen Then
            .Close
        End If
        .ActiveConnection = "dsn=tt"
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Source = strOpen
        .Open
    End With        .
        .
        .
★★,执行到上头.open的时候出错,提示为 "没有为命令对象设置命令"
     是我ado的问题?可我已经增加了一个ado了

Answer 1

activeconnection应该是一个连接的名称，另外，stropen赋值了吗？

Answer 2

你必须声明并打开一个Connection对象。
dim cnn as adodb.connection
set cnn = new adodb.connection
cnn.open "......."

Answer 3

strOpen 应该是个sql 语句,比如select * from dbname