Ciao,
l'errore è dovuto al fatto che stai utilizzando un command già associato al reader che stai scorrendo.
Per risolvere il problema devi creare un altro command che faccia la insert
If reader.Read() Then
dim commandInsert as new SqlCommand()
commandInsert.Connection = connection
'... ecc ecc
end if
Un'altra cosa: ti sconsiglio caldamente di creare le query sql accodando i parametri perchè potresti avere i classi problemi di sql injection. Prova ad utilizzare le query parametriche. Puoi approfondire il discorso partendo da questo post: http://www.dotnethell.it/forum/messages.aspx?ThreadID=23672
-----------------------------------------
Rossi Marco
http://blogs.dotnethell.it/rossimarko