Если не трудно, 
в методе OnInitial 
открыт а база данных,
необходимо добавить запись, состоящую из 
одного поля типа int , индекс отсутствует, 
имя базы данных MyDatabase, 
имя таблицыі – MyTable
имя поля  field1

СПАСИБО

Создание новой записи в таблице «Сотрудники».
Sub InsertIntoX2()
    Dim dbs As Database
    ' Укажите в следующей строке путь к базе данных "Борей"
    ' на вашем компьютере.
    Set dbs = OpenDatabase("Борей.mdb")
    
    ' Создает новую запись в таблице "Сотрудники". 
    ' Имя - Павел, фамилия - Власов, 
    ' должность - стажер.
    dbs.Execute " INSERT INTO Сотрудники " _
        & "(Имя,Фамилия, Должность) VALUES " _
        & "('Павел', 'Власов', 'Стажер');"
        
    dbs.Close
End Sub

Нижеидущий оператор позволяет только
ЧИТАТЬ базу данных:

recset.Open(CRecordset::forwardOnly,SqlString,CRecordset::readOnly);

Какой должен быть, чтобы можно было ДОБАВЛЯТЬ ЗАПИСИ в базу  ?