Как согласовать RecordSet с переменной типа Date

[TankKk]

Мне надо вытащить из табл значение и провести с ним операции как с датой(может не через RecordSet?)

Код: Выделить всё


[SRC vba]For nLaunch = 1 To kolLaun
    Set DayLaunch = db.OpenRecordset("SELECT ДеньЗапуска FROM [" & pathSelect & ".[Запуски] WHERE " & _
        "(Код=nLaunch)", dbOpenDynaset)
    kolHurrPerDay = 0
    For Diap = DayLaunch - Forms("Основа")!ПолеСоСписком6 To DayLaunch + Forms("Основа")!ПолеСоСписком8
        For nHurr = 1 To kolHurr
            Set DayHurr = db.OpenRecordset("SELECT НачалоУрагана FROM [" & pathSelect & ".[Основа] WHERE " & _
                "(Код=nHurr)", dbOpenDynaset)
            If Diap = DayHurr Then kolHurrPerDay = kolHurrPerDay + 1
            'Я идиот! Убейте меня, кто-нибудь!??? Запись kolHurrPerDay в новую таблицу????
        Next 'nHurr
        Set DayHurr = Nothing
    Next 'Diap
    Set DayLaunch = Nothing
Next 'nLaunch[/SRC]