dim i as integer dim CDv as string Dim objcon as new oledbconnection(connectionstring) dim objcmd as new oledbcommand cbjcmd.connection = ojbcon for i=1 to 1200 CDv="CD-0"+i.tostring objcmd.commandtext="insert into table(CD)values('"&CDv&"')" objcmd.ExecuteNonQuery() next
dim CDv as string
Dim objcon as new oledbconnection(connectionstring)
dim objcmd as new oledbcommand
cbjcmd.connection = ojbcon
for i=1 to 1200
CDv="CD-0"+i.tostring
objcmd.commandtext="insert into table(CD)values('"&CDv&"')"
objcmd.ExecuteNonQuery()
next
cbjcmd.connection.open()