Código:
Dim comados1 = conexion.CreateCommand
comados1.CommandType = CommandType.Text
comados1.CommandText = "insert into Productos (pu,Producto) SELECT pu,Producto FROM [MS Access;DATABASE=" & TextBox1.Text & "].[Productos] Where pu = " & putv & " ORDER BY pu"
conexion.Open()
Dim lecto2 = comados1.ExecuteNonQuery
conexion.Close()


