Sub CreateIndexSample()
'
Dim x As String
x = "CREATE TABLE Employees " _
& "(First_Name TEXT(20), Last_Name TEXT(25), " _
& " dob DATETIME, " _
& "Constraint Employees_PK Primary Key (First_Name, Last_Name, dob));"
Dim db As DAO.Database
Set db = CurrentDb
db.Execute x
End Sub