Dim strCN as string = "CONNECTION_STRING"
Dim strQuery as string = "SELECT * FROM table"
Dim cnSQL as new sqlConnection(strCN)
Dim cmdSQL as sqlCommand(strQuery, cnSQL)
Dim rdSQL as sqlDataReader
dim cmdExecSQL as new sqlCommand(cnSQL)
dim cmdExecSQL2 as new sqlCommand(cnSQL)
cnSQL.open
rdSQL = cmdSQL.ExecuteReader
do until rdSQL.read = false
'Execute the second command-object
cmdExecSQL2.commandText = "INSERT INTO table2 (COL) VALUES ('" & rdSQL.items(0) &"')"
cmdExecSQL2.executeNonQuery
loop
cmdExecSQL.close
rdSQL.close
cnSQL.close