Bueno ya lo he solucionando utilizando el mismo objeto para los dos conexiones, no se las ventajas o desventajas que tendrá esto, pero funciona:
Código:
dim bd1 as bd = new bd(cadena_local)
bd1.Insertar
bd1.Close
bd1.Dispose
bd1 = new bd(cadena_internet)
bd1.Insertar
bd1.close
bd1.dispose()