dim i as integer for i = 1 to 200 currentdb.execute "insert into таблица(ser, num, data) values('b22334', '01/19/12', '" & i & "') next i