ms

2016-09-01 12:44:54 +02:00
parent 55b4b1e4ec
commit ba5e88b91b
19 changed files with 3153 additions and 2853 deletions
--- a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb
+++ b/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb
@@ -8910,6 +8910,8 @@ Partial Public Class DD_DMSDataSet
        
        Private columnDATE_FORMAT As Global.System.Data.DataColumn
        
+        Private columnGENERAL_VIEWER As Global.System.Data.DataColumn
+        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
        Public Sub New()
@@ -9097,6 +9099,14 @@ Partial Public Class DD_DMSDataSet
            End Get
        End Property
        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public ReadOnly Property GENERAL_VIEWERColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnGENERAL_VIEWER
+            End Get
+        End Property
+        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
         Global.System.ComponentModel.Browsable(false)>  _
@@ -9152,9 +9162,10 @@ Partial Public Class DD_DMSDataSet
                    ByVal COMMENT As String,  _
                    ByVal SHORTNAME As String,  _
                    ByVal WAN_ENVIRONMENT As Boolean,  _
-                    ByVal DATE_FORMAT As String) As TBDD_USERRow
+                    ByVal DATE_FORMAT As String,  _
+                    ByVal GENERAL_VIEWER As String) As TBDD_USERRow
            Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow)
-            Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT, DATE_FORMAT}
+            Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT, DATE_FORMAT, GENERAL_VIEWER}
            rowTBDD_USERRow.ItemArray = columnValuesArray
            Me.Rows.Add(rowTBDD_USERRow)
            Return rowTBDD_USERRow
@@ -9202,6 +9213,7 @@ Partial Public Class DD_DMSDataSet
            Me.columnSHORTNAME = MyBase.Columns("SHORTNAME")
            Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT")
            Me.columnDATE_FORMAT = MyBase.Columns("DATE_FORMAT")
+            Me.columnGENERAL_VIEWER = MyBase.Columns("GENERAL_VIEWER")
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -9245,6 +9257,8 @@ Partial Public Class DD_DMSDataSet
            MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT)
            Me.columnDATE_FORMAT = New Global.System.Data.DataColumn("DATE_FORMAT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnDATE_FORMAT)
+            Me.columnGENERAL_VIEWER = New Global.System.Data.DataColumn("GENERAL_VIEWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnGENERAL_VIEWER)
            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
            Me.columnGUID.AutoIncrement = true
            Me.columnGUID.AllowDBNull = false
@@ -9273,6 +9287,9 @@ Partial Public Class DD_DMSDataSet
            Me.columnDATE_FORMAT.AllowDBNull = false
            Me.columnDATE_FORMAT.DefaultValue = CType("dd.MM.yyyy",String)
            Me.columnDATE_FORMAT.MaxLength = 10
+            Me.columnGENERAL_VIEWER.AllowDBNull = false
+            Me.columnGENERAL_VIEWER.DefaultValue = CType("NONE",String)
+            Me.columnGENERAL_VIEWER.MaxLength = 30
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -26191,6 +26208,17 @@ Partial Public Class DD_DMSDataSet
            End Set
        End Property
        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Property GENERAL_VIEWER() As String
+            Get
+                Return CType(Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn),String)
+            End Get
+            Set
+                Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn) = value
+            End Set
+        End Property
+        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
        Public Function IsPRENAMENull() As Boolean
@@ -40660,6 +40688,7 @@ Namespace DD_DMSDataSetTableAdapters
            tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME")
            tableMapping.ColumnMappings.Add("WAN_ENVIRONMENT", "WAN_ENVIRONMENT")
            tableMapping.ColumnMappings.Add("DATE_FORMAT", "DATE_FORMAT")
+            tableMapping.ColumnMappings.Add("GENERAL_VIEWER", "GENERAL_VIEWER")
            Me._adapter.TableMappings.Add(tableMapping)
            Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
            Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -40670,11 +40699,12 @@ Namespace DD_DMSDataSetTableAdapters
            Me._adapter.InsertCommand.Connection = Me.Connection
            Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         (PRENAME, NAME, USERNAME, EMAIL, "& _ 
                "LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE, SHORTNAME, COMM"& _ 
-                "ENT, WAN_ENVIRONMENT, DATE_FORMAT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@PRENAME,@NAME,@USERNAME,@EMA"& _ 
-                "IL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN_ENVIRONMENT,@DA"& _ 
-                "TE_FORMAT);      "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGE"& _ 
-                "D_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED"& _ 
-                "_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY())"
+                "ENT, WAN_ENVIRONMENT, DATE_FORMAT, GENERAL_VIEWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@PRENAME,@NAM"& _ 
+                "E,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN"& _ 
+                "_ENVIRONMENT,@DATE_FORMAT,@GENERAL_VIEWER);       "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, "& _ 
+                "USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMI"& _ 
+                "N, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID ="& _ 
+                " SCOPE_IDENTITY())"
            Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -40687,16 +40717,17 @@ Namespace DD_DMSDataSetTableAdapters
            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
            Me._adapter.UpdateCommand.Connection = Me.Connection
            Me._adapter.UpdateCommand.CommandText = "UPDATE       TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET                PRENAME = @PRENAME, NAME = @NAME, USER"& _ 
                "NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _ 
                "HANGED_WHO, LANGUAGE = @LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         SHORTNAME = @SHORTN"& _ 
                "AME, COMMENT = @COMMENT, WAN_ENVIRONMENT = @WAN_ENVIRONMENT, DATE_FORMAT = @DATE"& _ 
-                "_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Original_GUID);     "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME,"& _ 
-                " USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADM"& _ 
-                "IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID "& _ 
-                "= @GUID)"
+                "_FORMAT, GENERAL_VIEWER = @GENERAL_VIEWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Original_GUID);"& _ 
+                "      "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LO"& _ 
+                "G_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ 
+                "ED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)"
            Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -40709,6 +40740,7 @@ Namespace DD_DMSDataSetTableAdapters
            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
        End Sub
@@ -40729,8 +40761,8 @@ Namespace DD_DMSDataSetTableAdapters
            Me._commandCollection(0).CommandText = "SELECT        GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ 
                "IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ 
                "_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT,"& _ 
-                " DATE_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (MODULE_RECORD_ORG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"O"& _ 
-                "RDER BY USERNAME"
+                " DATE_FORMAT, GENERAL_VIEWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (MODULE_RE"& _ 
+                "CORD_ORG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY USERNAME"
            Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
        End Sub
        
@@ -40811,7 +40843,7 @@ Namespace DD_DMSDataSetTableAdapters
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
-        Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String) As Integer
+        Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String, ByVal GENERAL_VIEWER As String) As Integer
            If (PRENAME Is Nothing) Then
                Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
            Else
@@ -40859,6 +40891,11 @@ Namespace DD_DMSDataSetTableAdapters
            Else
                Me.Adapter.InsertCommand.Parameters(10).Value = CType(DATE_FORMAT,String)
            End If
+            If (GENERAL_VIEWER Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("GENERAL_VIEWER")
+            Else
+                Me.Adapter.InsertCommand.Parameters(11).Value = CType(GENERAL_VIEWER,String)
+            End If
            Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
            If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                        <> Global.System.Data.ConnectionState.Open) Then
@@ -40878,7 +40915,7 @@ Namespace DD_DMSDataSetTableAdapters
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
-        Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
+        Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String, ByVal GENERAL_VIEWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
            If (PRENAME Is Nothing) Then
                Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
            Else
@@ -40926,8 +40963,13 @@ Namespace DD_DMSDataSetTableAdapters
            Else
                Me.Adapter.UpdateCommand.Parameters(10).Value = CType(DATE_FORMAT,String)
            End If
-            Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer)
-            Me.Adapter.UpdateCommand.Parameters(12).Value = CType(GUID,Integer)
+            If (GENERAL_VIEWER Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("GENERAL_VIEWER")
+            Else
+                Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GENERAL_VIEWER,String)
+            End If
+            Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer)
            Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
            If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                        <> Global.System.Data.ConnectionState.Open) Then