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()