Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Comp
Добрый день форумчане.

Есть текст:
Option Compare Database

Private Sub BUT_EXIT_Click()
On Error GoTo Err_BUT_EXIT_Click


DoCmd.Close

Exit_BUT_EXIT_Click:
Exit Sub

Err_BUT_EXIT_Click:
MsgBox Err.Description
Resume Exit_BUT_EXIT_Click

End Sub

Private Sub Form_Open(Cancel As Integer)
Set Fr03 = CreateObject("AddIn.DrvFR")
End Sub

Private Sub Кнопка10_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.Time = Me!FRTime
Fr03.SetTime
Fr03.Disconnect
End Sub

Private Sub Кнопка11_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.Date = Me!FRDate
Fr03.SetDate
Fr03.ConfirmDate
Fr03.Disconnect
End Sub

Private Sub Кнопка12_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.PrintReportWithCleaning
Fr03.Disconnect
End Sub

Private Sub Кнопка8_Click()
Fr03.Password = 30
Fr03.Connect


Fr03.Quantity = 2
Fr03.Price = 17.5
Fr03.Department = 0
Fr03.StringForPrinting = "Товар 1"
Fr03.Sale
If ResultCode <> 0 Then GoTo exit_sub

Fr03.Quantity = 1
Fr03.Price = 98.3
Fr03.Department = 0
Fr03.StringForPrinting = "Товар 2"
Fr03.Sale
If ResultCode <> 0 Then GoTo exit_sub

Fr03.StringForPrinting = "------------------------------------"
Fr03.Summ1 = 25
Fr03.Discount

Fr03.StringForPrinting = "------------------------------------"
Fr03.CheckSubTotal
Fr03.CloseCheck
If ResultCode <> 0 Then GoTo exit_sub
Fr03.Disconnect

Exit Sub
exit_sub:
MsgBox ResultCode
End Sub

Private Sub Кнопка9_Click()
Fr03.ShowProperties
End Sub

И есть таблица:

Наименование Цена ед. Кол-во Дата Время Номер секции
Товар1 1 1 01.01.09 12.22 1
Товар2 10 2 01.01.09 12.22 1
Товар3 22 1 01.01.09 14.20 2
....

Нужно в тексте придумать цикл так чтобы товары с одинаковым временем и датой пробивались одним чеком.

Также известно:

Quantity - Количество товара
Price - Цена за единицу товара
Department - Номер отдела (секции)

StringForPrinting - Строка символов кодовой таблицы WIN1251
для печати (печатается на чеке в строке,
идущей перед строкой, содержащей
цену(сумму) и/или количество).

Помогите. В программировании не рублю