Создание листа в рабочей книге Excel

Dim pApp As Excel.Application
Dim pBook As Excel.Workbook
Dim pSheet As Excel.Worksheet
    Set pApp = New Excel.Application
    pApp.Visible = True
    Set pBook = pApp.Workbooks.Add
    Set pSheet = pBook.Worksheets.Add
    pSheet.Name = 'aaa'

Public Sub Query2Excel(ByVal sSQL As String, _
                        ByVal sFileName As String)
Dim lRs As DAO.Recordset
Dim pApp As Excel.Application
Dim pBook As Excel.Workbook
Dim pSheet As Excel.Worksheet
Dim iRows As Long
Dim iCols As Long
    Set pApp = New Excel.Application
    pApp.Visible = True
    Set pBook = pApp.Workbooks.Add
    Set pSheet = pBook.Worksheets(1)
    Set lRs = CurrentDb.OpenRecordset(sSQL)
    lRs.MoveLast
    lRs.MoveFirst
    For iCols = 0 To lRs.Fields.Count - 1
        pSheet.Range(Chr$(65 + iCols) & '1').Value = lRs.Fields(iCols).Name
    Next iCols
    For iRows = 1 To lRs.RecordCount
        For iCols = 0 To lRs.Fields.Count - 1
            pSheet.Range(Chr$(65 + iCols) & CStr(iRows + 1)).Value = lRs(iCols).Value
        Next iCols
        lRs.MoveNext
    Next iRows
    pBook.SaveAs sFileName
    pApp.Quit
    Set pSheet = Nothing
    Set pBook = Nothing
    Set pApp = Nothing
    lRs.Close
    Set lRs = Nothing
End Sub

    Query2Excel 'SELECT nazv, rejis, anons FROM Films', 'c:15.xls'