ok Bueno ya pude resolver una de las partes que necesito Consegui inicializar el DataEnvironment en tiempo de ejecucion pongo el codigo aqui:
Código:
strRutaConexion = txtRutaBaseDatos.Text 'Inicializar variable con la ruta de redireccionamiento
dteControlEscolar.cnnControlEscolar.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strRutaConexion & ";Persist Security Info=False" 'Inicializar control con nueva ruta
dteControlEscolar.cnnControlEscolar.Open 'Abrir la conexion para que se apliquen los cambios
Ahora solo me queda lo del control ADO les agradeceria ideas para poder solucionarlo