VB中使用EXCEL输出

nbsp;     Case 1
                    ToExcelFSD_CL.ToExcelFSD_CL xlbook, xls
                Case 2
                    ToExcelHNT.ToExcelHNT xlbook, xls
                Case 3
                    ToExcelZsf.ToExcelZsf xlbook, xls
                Case 4
                    ToExcelJingChang.ToExcelJingChang xlbook, xls
                Case 5
                    ToExcelJDanJia.ToExcelJDanJia xlbook, xls
                Case 6
                    ToExcelADanJia.ToExcelADanJia xlbook, xls
            End Select
        End If
    Next
   
    xlbook.SaveAs Text1.Text ''保存EXCEL文件
    ''***************************关闭EXCEL对象*******************
    If Check1.Value = vbChecked Then
        xlbook.Close
        xls.Quit
    End If
    Set xlbook = Nothing
    Set xls = Nothing
    Exit Sub
''exlError:
   '' MsgBox Err.Description, vbOKOnly + vbCritical, "警告"
End Sub

Option Explicit
Public Sub ToExcelZgcl(ByRef xlbook, ByRef xls) ''输出总工程量
    Dim con As New ADODB.Connection
    Dim rst_gcl As New ADODB.Recordset
    Dim rst_qm As New ADODB.Recordset
    ''**************************连接数据库****************************************
    con.CursorLocation = adUseClient
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strConnection & ";Persist Security Info=False"
    con.Open
    rst_gcl.Open "zonggcl", con, adOpenKeyset, adLockOptimistic, adCmdTable ''打开工程量汇总表
    If Not (rst_gcl.BOF And rst_gcl.EOF) Then
        rst_gcl.MoveFirst
    End If
    rst_qm.Open "qianming", con, adOpenKeyset, adLockOpti