diff --git a/OI/Normatividad.aspx.vb b/OI/Normatividad.aspx.vb
index 812dfa77f..e1d44026f 100644
--- a/OI/Normatividad.aspx.vb
+++ b/OI/Normatividad.aspx.vb
@@ -38,7 +38,10 @@ Partial Class OI_Normatividad
 
                 If ObjOIEventos.AddEventoNormatividad("PADRE", "PADRE DE TODOS", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "".ToEntero) Then
                     If ObjOIEventos.GetEventoNormatividad(UsuarioActual.CveEmpresa) Then
-                        IDSelected = ObjOIEventos.DtResultados(0)("CveEvento").ToString.ToEntero
+                        IDSelected = 0
+                        If ObjOIEventos.DtResultados.Rows.Count > 0 Then
+                            IDSelected = ObjOIEventos.DtResultados(0)("CveEvento").ToString.ToEntero
+                        End If
                         ObjOIEventos.AddEventoNormatividad("Título 1", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IDSelected)
 
                     End If