DB dévil como base de datos
Rs déviles como DAO.Recordset
fijar DB=currentdb () '<>
Para i = Val (txtNoFrom) a Val (txtNoTO)
cmbCarInsert.SetFocus
DB.Execute “parte movible en los tblPetrolDetails (PetrolID, Carno, voucherno, vouchervalue)” y _
“valores (” y identificación y “, “” y cmbCarInsert.Text y “”, ““y i y””, “y Val (txtInsertValue) y ") “
Después