Как исправить этот код, чтобы привести все свойства в базу данных access ?

---

 Public Sub ShowFieldsAccess(dgv As DataGridView, table As DevExpress.XtraEditors.CheckedListBoxControl, txtmasar As DevExpress.XtraEditors.TextEdit, txtpk As TextBox)
 

            dgv.DataSource = Nothing
        dgv.Rows.Clear()
        Dim NameTable As String = table.Text
        For Each Dr In mytb.Rows
            Dim cmd As OleDbCommand = cn.CreateCommand
            cmd.CommandText = String.Format("Select * From [{0}]", NameTable)
                Dim reader As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.KeyInfo)
                x = reader.GetSchemaTable
        Next
            For Each item As DataRow In x.Rows
                                Dim n As Integer = dgv.Rows.Add(item)
                              dgv.Rows(n).Cells(1).Value = item(0).ToString
                dgv.Rows(n).Cells(2).Value = GetTypeAccessGET(item(5).ToString.Replace("System.", ""))

                If item(8).ToString() = "True" Then : dgv.Rows(n).Cells(0).Value = "False"
                Else : dgv.Rows(n).Cells(0).Value = "True" : End If
                n += 1
                '-----------------
                Dim con As New ADODB.Connection
                con.Open(cn.ConnectionString)
                Dim MyDB As New ADOX.Catalog
                MyDB.ActiveConnection = con
                Dim MyTable As ADOX.Table = MyDB.Tables(NameTable)
                Dim Desc As String = item(0).ToString
                dgv.Rows(n - 1).Cells(3).Value = MyTable.Columns(Desc).Properties("Description").Value
            Next item
            '--------------------------------------------------------------------------------------------------------------------S
            Dim dt As New DataTable With {.TableName = String.Concat("Schema_", NameTable)}
            Dim db As AccessDao.Database
            Dim TheTableDef As AccessDao.TableDef
            Dim Engine As New AccessDao.DBEngine()
            db = Engine.OpenDatabase(txtmasar.Text.ToString)
            TheTableDef = db.TableDefs(NameTable)
            With TheTableDef
                For Each f As AccessDao.Field In .Fields
                    Dim d As AccessDao.DataTypeEnum
                    Dim FieldType = CType(
                        System.ComponentModel.TypeDescriptor _
                            .GetConverter(d) _
                            .ConvertFromString(f.Type.ToString), 
                            AccessDao.DataTypeEnum)

                           For Each item1 As DataRow In x.Rows

                        Dim v As Integer = dgv.Rows.Count - 1
                        dgv.Rows(v).Cells(4).Value = f.Required
                        dgv.Rows(v).Cells(5).Value = f.Size
                        dgv.Rows(v).Cells(6).Value = f.AllowZeroLength
                        '  v += 1
                    Next item1
                Next f


            End With
            Return
end sub

Что я уже пробовал:

Я устал от этого кода и пытаюсь перенести все свойства полей таблицы в базу данных Access в DataGridView
Пожалуйста, помогите мне обнаружить ошибку в коде

Огромное спасибо

https://image.ibb.co/byDdVQ/Capture.png[^]

---