Формы в ms Access

Sub reportToExcel()
Const sQ = "123"
Dim XL  As New Excel.Application, XT As Object, o As Object
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = CurrentProject.Connection: Set rs = New ADODB.Recordset
rs.Open sQ, cn, adOpenKeyset, adLockReadOnly
If rs.State = 0 Then
ElseIf rs.RecordCount = 0 Then
Else
    'создается новый документ
    Set XT = XL.Workbooks.Add
    'открывается существующий документ
    'Set XT = XL.Workbooks.Open("C:\book1.xls")
    Set o = XT.Sheets(1)
    o.Range("b6").CopyFromRecordset rs
    For i = 1 To rs.Fields.Count
        s = rs.Fields(i - 1).Name
        o.Cells(5, i + 1) = s
    Next
    o.[a1] = Format(Date, "d mmmm  yyyy г.")
    'отображение Excel
    XL.Visible = True
End If
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

Private Sub Кнопка1_Click()
'эх раз
reportToExcel
'еще раз
Run ("reportToExcel")
End Sub

Option Compare Database
Const sQ = "123"
Option Explicit
 
Private Sub Кнопка1_Click()
 
Dim XL As New Excel.Application, XT As Object, o As Object
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = CurrentProject.Connection: Set rs = New ADODB.Recordset
rs.Open sQ, cn, adOpenKeyset, adLockReadOnly
If rs.State = 0 Then
ElseIf rs.RecordCount = 0 Then
Else
'создается новый документ
Set XT = XL.Workbooks.Add
'открывается существующий документ
'Set XT = XL.Workbooks.Open("C:\book1.xls")
Set o = XT.Sheets(1)
o.Range("b6").CopyFromRecordset rs
For i = 1 To rs.Fields.Count
s = rs.Fields(i - 1).Name
o.Cells(5, i + 1) = s
Next
o.[a1] = Format(Date, "d mmmm yyyy г.")
'отображение Excel
XL.Visible = True
End If
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub