Creare una Tabella e Nuovi campi

Imports System.Data
Imports System.Data.OleDb
Imports System.IO


Dim dsStr As String
Dim dsCn As String
Dim cnADO As ADODB.Connection
Dim mdb As ADOX.Catalog
Dim dt As ADOX.Table

mdb = New ADOX.Catalog()
cnADO = New ADODB.Connection()
dsStr = "H:\Archivio\_Nasi\adonet\ADO.NET 2.0 Step by Step.zip\SampleDBs\Test.mdb"
dsCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dsStr + ";"
cnADO.ConnectionString = dsCn

cnADO.Open()
mdb.ActiveConnection = cnADO

dt = New ADOX.Table()
dt.Name = "New Table"
dt.Columns.Append("TableID", ADOX.DataTypeEnum.adWChar, 5)
dt.Columns.Append("Value", ADOX.DataTypeEnum.adWChar, 20)
dt.Keys.Append("PK_NewTable", ADOX.KeyTypeEnum.adKeyPrimary, _
"TableID")
mdb.Tables.Append(dt)

cnADO.Close()

MessageBox.Show("Finished", "Make Table")
End Sub