Dunkel DB som databas
Dunkla rs som DAO.Recordset
fastställda DB=currentdb () ',<>
För I = Val (txtNoFrom) till Val (txtNoTO)
cmbCarInsert.SetFocus
DB.Execute ”mellanlägg in i tblPetrolDetails (PetrolID, Carno, voucherno, vouchervalue)” & _,
”värderar (” & LEGITIMATIONEN & ”, ”” & cmbCarInsert.Text & ””, ””& I &””, ”& Val (txtInsertValue) &”) ”,
Därefter