Aperturar y Cerrar BD Access

[email protected]
26 de Octubre del 2003
Hola colegas.
Soy nuevo usando el data environment, trabajo con VB6 y BD Access. Necesito abrir y cerrar bases de datos en cualquier momento estoy usando el siguiente codigo que me sugirieron:

Sub AbreBase(parBase As String)
Dim strConnectionString As String
strConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:NetProjEnsayos" & parBase & ".MDB"
With deDatos.cnBase
If .State = adStateOpen Then .Close
.ConnectionString = strConnectionString
If .State = adStateClosed Then .Open
End With
End Sub

La primera vez que abro el ejecutable y selecciono la base de datos que quiero, funciona bien, pero las siguientes simplemente se queda el objeto cerrado y no muestra nada en los controles enlazados de los formularios.
Tengo que salir del aplicativo y volver a entrar si quiero seleccionar nuevamente alguna BD
Necesito evitar tener que salir del aplicativo y poder cambiarme de BD en cualquier momento.
Como puedo hacer esto???

Gracias de antemano