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.