Faible DB comme base de données
Faibles rs comme DAO.Recordset
placer DB=currentdb () '<>
Pour I = Val (txtNoFrom) à Val (txtNoTO)
cmbCarInsert.SetFocus
DB.Execute « insertion dans des tblPetrolDetails (PetrolID, Carno, voucherno, vouchervalue) » et _
« valeurs (" et identification et « , « » et cmbCarInsert.Text et « », « « et I et » », « et Val (txtInsertValue) et ") «
Après