Export to Excel Code - Please Review

I found this code and its what I need it to do except I am getting an error
(0) when I run it. I am calling the code as follows where the file name is
loan.xls and my table in my database that I want to export is Loan1a. THANKS

Any help as to why I am getting this error would be appreciated. I
referenced excel10 and DAO3.6.

Calling As Follows
***************

Dim FileName As String, MyRecs As DAO.Recordset, TestIt As Boolean

FileName = "C:\WAM\loan.xls"
Set MyRecs = CurrentDb.OpenRecordset("Loan1a")
TestIt = SaveRecordsetToExcel(MyRecs, FileName, , False)

If TestIt = True Then
MsgBox "Export Succeeded!"
Else
MsgBox "Miserable Failure!"
End If


Heres the function
**********************

Public Function SaveRecordsetToExcel(RecSet As Object, ByVal FName As
String, _
Optional Template As String = "", Optional OutRange As String =
"A1:A1", _
Optional ColumnHeaders As Boolean = True) As Boolean
Dim RSRange As Excel.Range
Dim AppExcel As Excel.Application, WkBk As Excel.Workbook, WkSht As
Excel.Work***, i As Integer
Dim Fld As DAO.Field

On Error GoTo ErrExit
SaveRecordsetToExcel = False

'Make sure that RecSet is a recordset

If TypeName(RecSet) = "Recordset" Then
'Create a new Excel workbook
Set AppExcel = New Excel.Application
If Template <> "" Then
Set WkBk = AppExcel.Workbooks.Add(Template)
Else
Set WkBk = AppExcel.Workbooks.Add
End If
Set WkSht = WkBk.Worksheets(1)

Set RSRange = WkSht.Range(OutRange)

'Write the column names
If ColumnHeaders Then
i = 0
For Each Fld In RecSet.Fields
RSRange.Offset(0, i).Value = Fld.Name
i = i + 1
Next
End If

'Format date columns if not writing into a template
If Template <> "" Then
i = 0
For Each Fld In RecSet.Fields
If Fld.Type = adDate Then
RSRange.Offset(0,
i).Columns(1).EntireColumn.NumberFormat = "mm/dd/yyyy hh:mm"
End If
i = i + 1
Next
End If

'Transfer the data to Excel
RSRange.Offset(1, 0).CopyFromRecordset RecSet

'Save the Workbook and Quit Excel
WkBk.SaveAs FName
AppExcel.Quit
SaveRecordsetToExcel = True
End If
Exit Function

ErrExit:
'exit with false value if failed
On Error Resume Next
MsgBox "Error(" & Err.Number & ") " & Err.Description, vbExclamation +
vbOKOnly, "Function SaveRecordsetToExcel()"
SaveRecordsetToExcel = False
AppExcel.Quit
End Function


.