Visual Basic - Reconectar dataenvironment

Hola, el problema es el siguiente.....

Al cargar la aplicacion conecto el dataenvironment a una base de datos.

dataenvironment1.connectionstring="......Data Source=" & strRuta & ".mdb;..."

Dentro de la aplicacion quiero reconectarlo a otra Base de Datos.Y pongo

If DataEnv.Connections(1).State = 1 Then DataEnv.Connections(1).Close

dataenvironment1.connectionstring="......Data Source=" & strNuevaRuta & ".mdb;..."

DataEnv.Connections(1).Open

Si antes de hacer la reconexion no he ejecutado ningun listado con el dataenvironment funciona correctamente, pero si he visualizado algun listado me da el error:

El motor de la base de datos Microsoft Jet no puede encontrar la tabla o consulta de entrada 'nombredetabla'.

Alguien sabe como reconectar un dataenvironment.Gracias

Ya he encontrado la solucion. Por si ha alguien le sirve, hay que cerrarlo asi
If DataEnvironment.Connections(1).State = 1 Then
DataEnvironment.Connections(1).Close
Unload DataEnvironment
Load DataEnvironment
End If

Y despues abrirlo como especifico en la pregunta