пытаюсь заставить обработать код:
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

но не считает ся количество записей ...синтаксис запроса верен...

вопрос (как обычно) - где ошибка .... сама отловить не могу...(( помогите пожалуйста...

как передать значение поля запроса в ячейку экселя... подскажите пожалуйста...