Creazione di una nuova tabella in database Access con VB.NET

Ed ecco il codice per la creazione di una nuova tabella del database (Sempre Access 2003).

Imports System.Data.OleDb
Public Class Form1
    Dim con As New OleDb.OleDbConnection
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        con.ConnectionString = "Provider=microsoft.jet.oleDB.4.0;" &
            "data source=C:\users\antonello\documents\tavoloDB.mdb"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not con.State = ConnectionState.Open Then
            con.Open()
        End If
        Dim cmd As New OleDb.OleDbCommand("CREATE TABLE tblCavolo(id int,testo varchar)", con)
        cmd.ExecuteNonQuery()
        con.Close()

    End Sub
End Class

...che ha funzionato.