IE cahcar error en treger al eliminar

Bancos/IE.aspx.vb

@@ -4752,13 +4752,26 @@ Partial Class Bancos_IE
                 End If
 
                 If Not ErrorCompra Then
-                    Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
+
                     If ObjAC IsNot Nothing Then ObjAC.Commit()
-                    Banc.Commit()
+
+                    If Banc.ExisteConeccion Then
+                        Banc.Commit()
+                        Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
+                    End If
+
                 Else
+
                     Alert("El documento no ha sido eliminado.", TipoMensaje.MsgAdvertencia)
+
                     If ObjAC IsNot Nothing Then ObjAC.RollBack()
-                    Banc.RollBack()
+
+                    If Banc.ExisteConeccion Then
+                        Banc.RollBack()
+
+
+                    End If
+
                 End If
 
                 If ObjAC IsNot Nothing Then ObjAC.Dispose()