diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index f2d679fd2..9b1b67cba 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -81,12 +81,8 @@ Partial Class CatSubProyectos
         End If
     End Sub
 
-    Private Sub RecargaGlobal()
-        Dim ObjSubProyectos As New ClsSubProyectos
-        If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
-            GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
-        End If
-        ObjSubProyectos.Dispose()
+    Private Sub RecargaGlobal()
+        GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
 #Region "O R D E N A M I E N T O"