xxdoc

Option Explicit

Public Function WriteToExcel( _
            rsSrc As Recordset, _
            sFileName As String, _
            Optional Workbook As String) As Recordset
    Const FUNC_NAME     As String = "WriteToExcel"
    Dim cn              As ADODB.Connection
    Dim sSQL            As String
    Dim oFld            As ADODB.Field