diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb
index 83879613c..ebf3144c8 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -136,7 +136,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
             GvDatos.DataSource = ObjVentas.DtResultados
             DtDatos = ObjVentas.DtResultados
         End If
-        If DtDatos.Rows.Count > 0 Then
+        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
             Dim Utilidad As Double = DtDatos.Rows(0)("Utilidad").ToString.ToDouble
             Dim Perdida As Double = DtDatos.Rows(0)("Perdida").ToString.ToDouble
             Dim Costo As Double = DtDatos.Rows(0)("Costo").ToString.ToDouble