How to make a macro to add records to the table?

You need a macro that will add entries to the "00_tb1_org" table.

It is necessary that the value of the record from the counter "from" - "to" is substituted in the "tb1_id" field.
Those. if the counter is c = 1; po = 3
then in the field "tb1_id" the value is substituted: 1, 2, 3.

If the counter is with = 4; = 6, then in the "tb1_id" field the value is substituted: 4, 5, 6.

The remaining fields are substituted for the same type values.
Those. if the form is filled in:
c = 1;
po = 3;
tb1_OrgName = tb1_OrgName value 1;
tb1_xar1 = tb1_xar1 value 1;
tb1_xar2 = tb1_xar2 value 1;

then three entries will be created.
The screen shows the result for two options.

Began to try, but something gives errors

Private Sub Кнопка14_Click() Dim Rst As DAO.Recordset Set Rst = CurrentDb.OpenRecordset("00_tb1_org") Rst.AddNew Rst.tb1_xar1 = tb1_xar1 Rst.tb1_xar2 = tb1_xar2 Rst.Update Rst.Close Me.fmSingleQuestionMode.Requery End Sub 

Link to the file http://transfiles.ru/gl55e