DB fioco come base di dati
Rs fiochi come DAO.Recordset
regolare DB=currentdb () '<>
Per i = Val (txtNoFrom) a Val (txtNoTO)
cmbCarInsert.SetFocus
DB.Execute “inserto nei tblPetrolDetails (PetrolID, Carno, voucherno, vouchervalue)„ & _
“valori (" & identificazione & “, “„ & cmbCarInsert.Text & “„, ““& i &„„, “& Val (txtInsertValue) & ") “
Dopo