Esto es más tema de programación, pero la idea es usar inserts mútiples, que se crean :
   
Código VB:
Ver original- strSQL = "INSERT INTO inventario_neumaticos VALUES " 
- For i = 1 To Val(txtCantidad) 
-     strSQL += "(default,0,'" & medida & "'," & prof & ",default," & fecha & ",'" & factura & "','Nuevo','Bodega',default," & bodega & ",0," & rend & ",0,default);" 
-   If i< Val(txtCantidad) 
-     strSQL += ", " 
-   End If 
- Next 
- bd.Execute strSQL 
Es mucho mejor usar VB.Net...