Private Sub CommandButton1_Click()
Set dbs = DAO.OpenDatabase("c:\database.mdb")
'Выполняем запрос к базе данных
Set rs = dbs.OpenRecordset("SELECT назв_тов FROM тбл_тов")

'Если ничего не найдено - выдаем сообщение и выходим
If rs.RecordCount = 0 Then
MsgBox ("По вашему запросу ничего не найдено")
Exit Sub
End If
i = 1
Do While Not rs.EOF ' цикл выполняется пока не достигнута последняя строка в таблице ответа
'Присваиваем ячейкам таблицы значения из базы
Cells(i + 1, 2).Value = rs.Fields("назв_тов")
'Cells(i, 1).Value = rs.Fields("ID_тов")
i = i + 1
'переходим к следующей строке во временной таблице ответа
rs.MoveNext
Loop
'Закрываем временную таблицу
rs.Close
'Очищаем память. Если этого не сделать, то таблица так и останется висеть в оперативке.
Set rs = Nothing
'Закрываем базу
dbs.Close
'Очищаем память
Set dbs = Nothing
End Sub

Отчет в excel на данный момент формирует список товара.
Вопрос как проще реализовать чтобы формировал список товара по группам, тоесть в таблице есть поле class.
Необходимо, чтобы формировалось вида:
процессоры
.
.
.
видеокарты
.
.
.
и так далее

Имеется ввиду не группировка а конкретно писался класс а далеее перечень

тоесть такого вида:

процессоры
amd
intel
видеокарты
nvidia
ati

Насколько я понимаю это надо как то занести в рекордсет все классы а далее как то по циклу весь перечень по классам. Или это как то проще делается?

Схему бд можно конечно. Просто я использовал тривиальный пример в вопросе. Что бы понять как работает оно на простом примере и уже внедрить в свой конкретный случай.

Таблица ZfromUch
интересующие поля поля
Naimen
Таблица TMC
интересующие поля поля
Name
Class
Name объеденено c Name один ко многим
Поля которые участвуют для where пока не учел

тоесть Naimen c Name

Таблица ZfromUch это таблица содержащая данные о заявках
А таблица TMC это таблица содержащая номенклатуру(тоесть наименование класс(метизы,тюбинги...), среднерыночная цена )

select class from
(select class, class as c, 0 as subgroup FROM тбл_тов
union all
SELECT назв_тов, class, 1 FROM тбл_тов) q
order by c, subgroup

То что надо только вот DISTINCT Бы как то там уместить а то выдает орбер бай конфликтует с дистинк

Спасибо помогло

В ацессе у меня получалось только "горизонтальное представление" данных
А необходимо для наглядности "вертикальное"...Если вы меня поняли

Private Sub Кнопка75_Click()
Dim xlApp As Excel.Application
Dim wkbNewBook As Excel.Workbook
Dim wksSheet As Excel.Worksheet
Dim strBookName As String

'Создается скрытая инстанция к Excell
Set xlApp = New Excel.Application
' Добавляется новый workbook в Workbooks collection.
Set wkbNewBook = xlApp.Workbooks.Add
' Путь и имя книги для сохранения
strBookName = "C:\ex1.xls"

With wkbNewBook
For Each wksSheet In .Worksheets
wksSheet.Name = wksSheet.Name
Next wksSheet
.Close SaveChanges:=True, FileName:=strBookName
End With

Set dbs = DAO.OpenDatabase("c:\Шаблон доступа 2003.mdb")
'Выполняем запрос к базе данных
Set rs = dbs.OpenRecordset("SELECT ZfromUch.Naimen, TMC.Class FROM TMC INNER JOIN ZfromUch ON TMC.Name = ZfromUch.Naimen GROUP BY ZfromUch.Naimen, TMC.Class;")
rCount = rs.RecordCount
If rCount > 0 Then
aData = rs.GetRows(rs.RecordCount)
Set rs = dbs.OpenRecordset("SELECT DISTINCT class FROM TMC ORDER BY class")
aClass = rs.GetRows(rs.RecordCount)
Else
MsgBox ("По вашему запросу ничего не найдено")
End If

rs.Close
Set rs = Nothing
dbs.Close
Set dbs = Nothing

If rCount > 0 Then
'Cells.Clear
k = 2
For i = 0 To UBound(aClass, 2)
Cells(k, 2) = aClass(0, i)
wksSheet.Cells(k, 2).Font.Bold = True
k = k + 1
For j = 0 To UBound(aData, 2)
If aData(1, j) = aClass(0, i) Then
Cells(k, 2) = aData(0, j)
k = k + 1
End If
Next
Next
End If






Set wkbNewBook = Nothing
'Выход из Excell
xlApp.Quit

Set xlApp = Nothing
Exit Sub
End Sub


Не определяет Cells(k, 2) я так понимаю надо где то что то объявить или правильно путь к ячейке указать...Если вообще конструкция правильная