Возможно ли программно создать новую таблицу в файле БД Access?

Dim alTBL As New DataTable
            Dim i As Integer = 0
            cn.Open()
            alTBL = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            cn.Close()
            Me.tscbxTables.Items.Clear()
            For i = 0 To alTBL.Rows.Count - 1
                Me.tscbxTables.Items.Add(alTBL.Rows(i).Item("TABLE_NAME").ToString)
            Next

conn = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=db1.mdb")
 
conn.Open()
 
ComboBox1.Items.Clear
For Each dataRow As DataRow In conn.GetSchema("Tables").Rows
    If dataRow.Item("TABLE_TYPE").ToString = "TABLE" Then
        ComboBox1.Items.Add(dataRow.Item("TABLE_NAME").ToString)
    End If
Next

If dataRow.Item("TABLE_TYPE").ToString = "TABLE" Then

dataGridView1.DataSource = conn.GetSchema("Tables")

For i = 1 To counter Step 1
            add_num = add_num + 1
            add_num = CStr(add_num)
            Dim full_name As String = nm & add_num
            Conn.Open()
 
            For Each dataRow As DataRow In Conn.GetSchema("Tables").Rows
                If dataRow.Item("TABLE_NAME").ToString = full_name Then
                    update_table()
                    Exit For
                Else
                    Continue For
                End If
            Next
            '========  Если нет то создаем нову таблицу =============
            For Each dataRow As DataRow In Conn.GetSchema("Tables").Rows
                If dataRow.Item("TABLE_NAME").ToString <> full_name Then
                    create_table()
                End If
                Exit For
            Next
            Conn.Close()
            add_num = CDbl(add_num)
        Next