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