Create Access Table with auto number VBA

To create table in access vba

Sub CreateTable()

Dim MySQL As String
autonumber = counter
MySQL = "CREATE TABLE Table2 (ID counter, Name text (50))"
DoCmd.SetWarnings False
DoCmd.RunSQL MySQL
DoCmd.SetWarnings True

End Sub