Sub CreateDefault() Dim cmd As ADODB.Command Set cmd = New ADODB.Command cmd.ActiveConnection = CurrentProject.Connection cmd.CommandText = "CREATE TABLE Customers " & _ "(CustomerID LONG CONSTRAINT CustomerID PRIMARY KEY, " & _ "CompanyName TEXT (50), IntroDate DATETIME, " & _ "CreditLimit CURRENCY DEFAULT 5000)" cmd.Execute End Sub