ASP.NET - Que estoy haciendo mal en este ejemplo ???

quiero agregar datos de una tabla a otra ... en estas lineas que siguen me hace bien el while ... pero en el momento que hago con7.open ... me manda un error ... que estoy haciendo mal ???
Dim con As New OleDbConnection(strConnection)
Dim strSelect As String
strSelect = "SELECT * FROM pedido WHERE codigo_pedido='" & Txtcodpedido.Text & "' and dia_pedido='" & Txtdiapedido.Text & "' and mes_pedido='" & TxtMesPedido.Text & "' and year_pedido='" & TxtYearPedido.Text & "'"
Dim cmd As New OleDbCommand(strSelect, con)
con.Open()
Dim reader2 As OleDbDataReader
reader2 = cmd.ExecuteReader()
Dim strInsert2 As String
Dim con7 As New OleDbConnection(strConnection)
Dim cmd7 As New OleDbCommand(strInsert2, con7)

Do While reader2.Read
strInsert2 = "INSERT INTO detalle_factura ("
strInsert2 &= "cod_OrdComp,can_prod ) "
strInsert2 &= "VALUES ('"
strInsert2 &= reader2("codigo_pedido") & "', '"
strInsert2 &= reader2("cantidad") & "')"
con7.Open()
cmd7.ExecuteNonQuery()
con7.Close()
Loop
reader2.Close()
GRACIAS DE ANTEMANO !!!

LO mejor es que saques la apertura de la conexion fuera del while

saque pero me sale el siguiente error : Command text was not set for the command object ... en el momento que pasa por cmd7.ExecuteNonQuery() (que esta dentro del while)

Gracias !!!

Hola

Si sacaste el con7.Open del ciclo, debes sacar el con.Close tambien.. el problema que tienes es que no has asignado la cadena que contiene el insert en el comando... debes agregar esta línea en el while

cmd7.CommandText = strInsert2

Lo que sucede es que le asignaste una cadena vacia al momento de crearla, y nunca la cambiaste por la cadena correcta

Saludos