Люди добрые, господа, граждане (кому как удобнее) подскажите пожалуйста
Dim rs As Recordset
Dim strSQL As String
strSQL = "select id, inomer, naimenovanie, valut, cena, faktdate FROM sved_ob_yslug where faktdate <= #" & Format(CDate(Me.text1.Text), "mm\/dd\/yyyy") & "#"
Set rs = data1.Database.OpenRecordset(strSQL)
Set Me.data1.Recordset = rs
' объявление объектов экселя
Dim oExcel As Object ' объявление самого экселя
Dim oBook As Object ' объявление книги
Dim oSheet As Object ' обявление объекта
Set oExcel = CreateObject("Excel.Application") ' указание экселя
Set oBook = oExcel.Workbooks.open("C:\new\basa97.xls") ' указание пути книги
Set oSheet = oBook.Worksheets(1) ' объявление рабочего листа 1
With oSheet
.Range("A1") = "ID"
.Range("B1") = "Наименование организации "
.Range("C1") = "Наименование услуги "
.Range("d1") = "Валюта"
.Range("e1") = "Цена"
.Range("f1") = "Дата нач. предост. услуги"
.Range("A2").CopyFromRecordset rs
End With
oExcel.Visible = True
вот одит переноски данных из аксеса в эксель. Бд работает через DAO. Данные перекидываются таким образом, если фактическая дата начала предоставления услуги (FAKTDATE) меньше или равна чем введеная, то выводятся данные. Мне надо чтобы фактическая дата окончания предосавления услуги (fakt), если она больше введенной, то строка с этой организацией окрашивалась в желтый цвет в экселе.

скромная просьба, а кодик чтобы это сделать