hola,
pues la forma de insertar los datos mediante parámetros sería algo así:
Cita: cmd.comandtext="insert into tabla1 (campo1,campo2) values (@var1,@var2)"
cmd.parameters.add("@var1", dr(0)) 'dr(0) es dónde tu almacenas el valor para insertar en la BD
cmd.parameters.add("@var2",dr(1)) 'dr(1) es dónde tu almacenas el otro valor para insertar en la BD
cmd.executeNonQuery
cmd.parameters.clear
yo te he puesto el ejemplo con sólo dos campos, pero es para que veas la idea de los párametros.
saludos!