for i as Double = 10000001 to 1000099
Dim cmd As New SQLCommandcmd.CommandText = "Insert Into Xssj (_Identify,编号,产品) Values('" & i & "'100,'PD01')"cmd.Ccmd.ExecuteNonQuery() next