Как сделать автоинкрементным поле в Recordset? - VB

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

У меня есть таблица в SQL 7.0. Одно из полей - 'ID' является Identity и автоинкрементным. Создаю ADODB.Recordset с выборкой всех полей из этой таблицы. При использовании метода AddNew добавляю строку в Recordset. Как сделать автоинкрементным это поле в Recordset чтобы не вручную его делать а автоматически? Есть ли какие-то Properties в Recordset чтобы это сделать? Спасибо!

Решение задачи: «Как сделать автоинкрементным поле в Recordset?»

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

                            With ADORecordset
  .AddNew
  !Field1 = Value1
  !Field2 = Value2
  ...
  !FieldN = ValueN
  ' перечислены все поля, которые не могут иметь NULL
End With
                        