Bien buscando y buscando consegui encontrar una solucion que varias personas y en varios lugares hacen lo mismo ahora pongo el codigo con la linea agregada:
Código:
On Error Resume Next
'Inicializar el DataEnvironment
If dteControlEscolar.cnnControlEscolar.State = adStateOpen Then 'Validar el estado de la conexion
dteControlEscolar.cnnControlEscolar.Close 'Cerrar conexion para posterior uso
End If 'Fin de validar el estado de la conexion
dteControlEscolar.cnnControlEscolar.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strRutaConexion & ";Persist Security Info=False" 'Inicializar la propiedad del control con los datos necesarios para la redireccion de la base de datos
dteControlEscolar.cnnControlEscolar.Open 'Aplicar a la propiedad del control la nueva direccion de la base de datos
'Fin de inicializar el DataEnvironment
dteControlEscolar.Commands.Item("qryAgregarRutaImagenesRedireccionamiento").Parameters.Item("RutaImagenes").Value = txtRutaImagenes.Text 'Asignar a la variable la ruta donde se encuentra la carpeta de las imagenes
dteControlEscolar.Commands.Item("qryAgregarRutaImagenesRedireccionamiento").Parameters.Item("RutaBaseDatos").Value = txtRutaBaseDatos.Text 'Asignar a la variable la ruta donde se encuentra la base de datos
dteControlEscolar.rsqryAgregarRutaImagenesRedireccionamiento.Open 'Abrir el recordset para guardar la ruta de las imagenes
Simplemente lo que hace es brincar la linea donde marca el error y listo.
Ello es debido a que se ha utilizado el método Open del objeto Recordset, para ejecutar una consulta SQL que no devuelve un conjunto de registros, motivo por el cual se obtendrá dicho error, por lo que sería aconsejable omitirlo activando una rutina de control de errores antes de llamar al método Open