Verificar error al consultar en el kardex

Inventarios/KardexAlmacenHorizontal.aspx.vb

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