şu kod ile bir tablodan başka bir tablo oluşturuyorum ama otomatik sayıda eklemek istiyorum 
Autoıncrement Prımary Key
bunu nasıl ekleyeceğim

Sub sqql(v As String)

    Dim Sql As String

    Dim dbs As Database

    Set dbs = OpenDatabase("C:\Users\doktor2\Desktop\pmf\_udemy\egitim.accdb")

    

    Sql = "SELECT liste_tam.FABRİKA as fabrika, liste_tam.DEPARTMAN as departman, liste_tam.[GÖREV TANIMI (AS400)] as gorevas," _

    & " liste_tam.[GÖREV TANIMI (İSO)] as goreviso, liste_tam.SİC as sicil, liste_tam.V as vardiya4," _

    & " liste_tam.ADI as isim, liste_tam.SOYADI as soyisim, liste_tam.[İŞE GİRİŞ T] as isgirtar" _

    & " INTO liste6" _

    & " FROM liste_tam" _

    & " WHERE (liste_tam.SİC) Is Not Null AND (liste_tam.V) Like '*" & v & "*'" _

    & " ORDER BY liste_tam.FABRİKA, liste_tam.DEPARTMAN, liste_tam.[GÖREV TANIMI (AS400)], liste_tam.[GÖREV TANIMI (İSO)];"



    dbs.Execute sql

    dbs.Close



End Sub

DoCmd.RunSQL "ALTER TABLE liste6 ADD Column sno COUNTER"

DoCmd.RunSQL "ALTER TABLE liste6 ADD PRIMARY KEY (sno)"

kodları ile sno adında otomatik sayı eklenir. Üstteki otomatik sayı ekler, alttaki birincil anahtar ekler. Bu kodları, end sub'un üstüne yazarak deneyiniz.

teşekkürler admin peki bunu tek Sql cümlesinde belirtmek mümkün mü yani benim yazdığım Sql cümlesi içine eklenebiliyor mu

Tek Sql cümlesi ile birincil anahtar ve otomatik sayı oluşturamazsın. sizin yazdığınız Sql kodu içerisinde ekleyemezsin.

teşekkürler 
normal alan eklemek için yine bu mu kullanılacak

DoCmd.RunSQL "ALTER TABLE liste6 ADD Column okul_adi  TEXT(20)"

yoksa ilk Sql e eklenebilir mi 

DoCmd.RunSQL "ALTER TABLE liste6 ADD Column sno COUNTER, okul_adi TEXT(20)"