DB não ofuscante como a base de dados
Rs não ofuscantes como DAO.Recordset
ajustar DB=currentdb () '<>
Para i = Val (txtNoFrom) a Val (txtNoTO)
cmbCarInsert.SetFocus
DB.Execute “inserção em tblPetrolDetails (PetrolID, Carno, voucherno, vouchervalue)” & _
“valores (” & identificação & “, “” & cmbCarInsert.Text & “”, ““& i &””, “& Val (txtInsertValue) & ") “
Em seguida