Attribute VB_Name = "basTableWAutoNum"
Option Compare Database
Option Explicit


Sub MakeIdentityTable()

  'Assumes that refereces to Microsoft ADO Extentions
  'for DDL and Security (MSADOX.DLL) and Microsoft
  'ActiveX Data Objects 2.0 (MSADO15.DLL) have been made.

  Dim conn As New ADODB.Connection
  Dim comm As New ADODB.Command
  Dim strSqlString As String

  Set conn = CurrentProject.Connection
  strSqlString = "CREATE TABLE TestAutoNumber (Autonumberfield " & _
  "Int Identity(1,5), AnotherField varchar(255))"

  With comm
  .CommandType = adCmdText
  .CommandText = strSqlString
  .ActiveConnection = conn
  End With

  comm.Execute

End Sub