Как генерировать последовательные числа? (типа счетчика в Access, нужно для Oracle) - VB

Формулировка задачи:

Добрый день!
БД и приложение переводим из Access в Oracle.
В Access есть тип данных счетчик, а в Oracle нет. На форуме Oracle дают советы использовать для этого тригерры, в которых всю эту бодягу писать для каждой таблицы. Но что-то не очень хочется огород городить.
Как-то давно сталкивался с описанием (где не помню) о функции, которая генерит уникальные номера в зависимости от системной даты, времени и вероятность выдачи одного и того же числа очень низка.
Никто не в курсе этого или может есть еще какой-то вариант?

Решение задачи: «Как генерировать последовательные числа? (типа счетчика в Access, нужно для Oracle)»

textual
                            Листинг программы 
                        

                            <font color="blue">If</font> rsSEQ.State = adStateOpen <font color="blue">Then</font> rsSEQ.<font color="blue">Close</font>
   rsSEQ.<font color="blue">Open</font> <font color="teal">"SELECT МояСХЕМА.SEQ_ПКМоейТабилицы.NEXTVAL FROM DUAL"</font> _
         , Conn1, adOpenForwardOnly, adLockReadOnly, adCmdText
   m_NextID = rsSEQ(<font color="darkblue"><b>0</b></font>)
   rsSEQ.<font color="blue">Close</font>
   'Используем m_ID для вновь добавляемой записи
                        