Verificar error al consultar en el kardex

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -153,9 +153,13 @@ Partial Class Inventarios_KardexAlmacen
                 Return dt
                 Exit Function
             End If
+        Else
+            ObjMovimientos.Dispose()
+            Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
+            Exit Function
         End If
 
-        ObjMovimientos.Dispose()
+
         GvDatos.DataBind()
 
         For index = 3 To GvDatos.Rows(0).Cells.Count - 1