Access: CREATE TABLE Statement

'Example: Creates a new table called ThisTable with two text fields.

Sub CreateTable1()

    Dim dbs As Database

    ' Modify this line to include the path to Northwind
    ' on your computer.
    Set dbs = OpenDatabase("Northwind.mdb")

    ' Create a table with two text fields.
    dbs.Execute "CREATE TABLE ThisTable(FirstName CHAR, LastName CHAR);"

    dbs.Close

End Sub