Тусклый DB как база данных
Тусклые rs как DAO.Recordset
установите DB=currentdb () '<>
Для I = Val (txtNoFrom) к Val (txtNoTO)
cmbCarInsert.SetFocus
DB.Execute «вставка в tblPetrolDetails (PetrolID, Carno, voucherno, vouchervalue)» & _
«значения (" & удостоверение личности & «, «» & cmbCarInsert.Text & «», ««& I &»», «& Val (txtInsertValue) & ") «
Затем