Creazione di un database a runtime con le librerie DAO

Un bel ripasso dei database gestiti con le librerie DAO in VB.NET.
C'è qualche differenza con la sintassi che conoscevo dall'antico VB6, ma niente di insuperabile, almeno finora:

Imports DAO

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim engine = New DBEngine
        Dim db As Database
        db = engine.OpenDatabase("C:\users\antonello\bikongo.mdb")
        Dim tabella As TableDef = db.CreateTableDef("Tabella1")


        tabella.Fields.Append(tabella.CreateField("id", DAO.DataTypeEnum.dbInteger))
        tabella.Fields.Append(tabella.CreateField("nome", DAO.DataTypeEnum.dbText))
        tabella.Fields.Append(tabella.CreateField("cognome", DAO.DataTypeEnum.dbText))
        db.TableDefs.Append(tabella)

    End Sub
End Class

Questa è la creazione di una tabella con tre campi, uno numerico e due di testo.