Dim BaseDatos As String = "C:\ASP\BasesDatos\intranet.mdb"
Dim cadenaConexion As String = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & BaseDatos
Dim ConUsuario As OleDbConnection
Try
ConUsuario = New OleDbConnection(BaseDatos)
Catch ex As Exception
Response.Redirect("PagError.aspx")
End Try