Dim exel As Object
Dim RecCount As Long
Set excel = CreateObject( "excel.application" )
Set exel = GetObject(,  "Excel.Application" )
With exel
n = .Workbooks.Count
For I =  1  To n
.ActiveWorkbook.Save
.ActiveWorkbook.Close
Next I

.Workbooks.Open ( "C:\Documents and Settings\Bigboss\Мои документы\Шаблоны базы\zapr.xlt" )
.ActiveWorkbook.SaveAs ( "Заправочная карточка_"  & DATE &  "_.xls" )

strSQL =  "SELECT AVTO_ZAPR_VED.GNOMER, AVTO_ZAPR_VED.DATES, AVTO_ZAPR_VED.GAZOLINE, " 
strSQL = strSQL &  "AVTO_ZAPR_VED.cena, AVTO_ZAPR_VED.COL_OF_GAZOLINE " 
strSQL = strSQL &  "FROM AVTO_ZAPR_VED " 
strSQL = strSQL &  "WHERE (((AVTO_ZAPR_VED.DATES) " 
strSQL = strSQL &  " Between Forms!AVTO!SORT_DATE1 And Forms!AVTO!SORT_DATE2) And GNOMER=Forms!AVTO!GNOMER1);" 



' Функция определяет количество полей в заданной таблице
    Dim strWhere As String
    Dim rst As New ADODB.Recordset
    If Nz(strSQL, "") = "" Then
        RecCount = -1
        Exit Sub
    End If
    strWhere = "SELECT Count(*) As Total FROM (" & strSQL & ");"
    On Error Resume Next
    rst.Open strWhere, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
    If Err.Number <> 0 Then
    MsgBox Err.Description
        RecCount = -1
        Exit Sub
    End If
    ' Перейти в конец набора записей и вернуть порядковый номер
    ' текущей записи
    RecCount = Nz(rst.Fields( "Total" ).Value,  0 )
    rst.Close
    
    
    Set rst = Nothing
    
For er =  0  To rst
a1$ =  "a"  & LTrim(Str$(i1%))
.Range(a1$).Formula = DATES
b1$ =  "b"  & LTrim(Str$(i1%))
.Range(b1$).Formula =  ""
c1$ = " c " & LTrim(Str$(i1%))
.Range(c1$).Formula = COL_OF_GAZOLINE

i1% = i1% + 1 

Next er


b1$ = "b " & LTrim(Str$(i1% + 7 ))
.Range(b1$).Formula = "Дата:  " & DATE
.Range(" a5").SELECT
.ActiveWorkbook.Save

.Visible = True
End With
End Sub

SELECT AVTO_ZAPR_VED.GNOMER, AVTO_ZAPR_VED.DATES, AVTO_ZAPR_VED.GAZOLINE, AVTO_ZAPR_VED.cena, AVTO_ZAPR_VED.COL_OF_GAZOLINE FROM AVTO_ZAPR_VED WHERE GNOMER=Forms!AVTO!GNOMER1  and (((AVTO_ZAPR_VED.DATES)  Between # 01 / 01 / 2003 # And # 01 / 31 / 2003 #))

SELECT Count(*) As Total FROM (SELECT AVTO_ZAPR_VED.GNOMER, AVTO_ZAPR_VED.DATES, AVTO_ZAPR_VED.GAZOLINE, AVTO_ZAPR_VED.cena, AVTO_ZAPR_VED.COL_OF_GAZOLINE FROM AVTO_ZAPR_VED WHERE GNOMER=Forms!AVTO!GNOMER1  and (((AVTO_ZAPR_VED.DATES)  Between # 01 / 01 / 2003 # And # 01 / 31 / 2003 #)));