Не создается поле в Access DB

Imports System.Data.OleDb
Imports System.Windows.Forms
Imports System.IO
 
Public Class Form1
 
    Dim n As Integer
    Dim myFRead As FileStream
    Dim textFRead As StreamReader
    Dim x As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Nothing
        Button1.Text = "Далее"
        Dim cat As New ADOX.Catalog
        Try
            cat.Create("Provider=Microsoft.ACE.OleDb.12.0; Data Source=""C:\DB_organon.accdb""")
        Catch ex As Runtime.InteropServices.COMException
            MessageBox.Show("База данных создана")
        Finally
            cat = Nothing
        End Try
 
        Dim CON = New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0; Data Source=""C:\DB_organon.accdb""")
        CON.Open()
        Dim COMMAND As New OleDbCommand("CREATE TABLE member", CON)
        Try
            COMMAND.ExecuteNonQuery()
            MessageBox.Show("Таблица создана")
        Catch ex As Exception
        End Try
        TextBox1.Clear()
        CON.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CON = New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0; Data Source=""C:\DB_organon.accdb""")
        CON.Open()
        Dim COMMAND As New OleDbCommand("INSERT INTO member (" & TextBox1.Text & ")", CON)
 
        COMMAND.Connection = CON
        Try
            COMMAND.ExecuteNonQuery()
            MessageBox.Show("Поле вставлено")
        Catch ex As Exception
            MessageBox.Show("Поле не создано")
        End Try
 
        CON.Close()
    End Sub
 
End Class