vb6导出mysql指定的数据表

用免费云服务器，三丰云，记录开发过程：在 VB6 中要导出 MySQL 指定的数据表，可以按照以下步骤进行操作：
5. 连接 MySQL 数据库：使用适当的连接字符串连接到 MySQL 数据库。6. 执行 SQL 查询：使用 SQL 语句从指定的数据表中选择要导出的数据。7. 处理查询结果：将查询结果存储在一个合适的数据结构中，例如 Recordset。8. 导出数据：根据需要将数据导出到其他格式，例如 Excel、文本文件等。

Rem 导出电子表格的函数,源于李洪根的代码(接收传过来的记录集)
Public Function toexcel(objrs As ADODB.Recordset) As Boolean    '*********************************************************    '* 名称：ToExcel    '* 功能：将ado记录集导出为电子表格    '* 用法：call toexcel(rs)    '*********************************************************    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    '用完已释放？原代码没释放，我修改之    Dim connflag As Long    toexcel = False    '首先赋初值为假    If conn.State = adStateOpen Then        connflag = 1    Else        connflag = 0    End If    '如未连接则先连接    If connflag = 0 Then        If Not mainmoudle.getlink Then            toexcel = False            Exit Function        End If    End If    Set xlBook = xlApp.Workbooks.Add    Set xlsheet = xlBook.Worksheets(1)    xlsheet.Name = "Sheet1"    irowcount = objrs.RecordCount    Icolcount = objrs.Fields.Count    For i = 0 To Icolcount - 1        xlsheet.Cells(1, i + 1) = objrs.Fields(i).Name    Next i    objrs.MoveFirst    For i = 2 To irowcount + 1        For j = 0 To Icolcount - 1            xlsheet.Cells(i, j + 1) = objrs.Fields(j).Value        Next j        objr ...