Esto es más tema de programación, pero la idea es usar inserts mútiples, que se crean :
Código VB:
Ver originalstrSQL = "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...