access veritabanına tablo yaratırken otomatik sayı verme!

[olymposss]

sn hocalarım herkese hayırlı sabahlar
aşağıdaki kodlar ile veritabanına tablo yaratıyorum.ancak kimlik bölümünün otomatik sayı olarak atanmasını istiyorum.hangi kodları eklemem lazım?
yardımlarınız için teşekkürler.
saygılar:yardim:

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Şifre As String
Dim DatabasePath As String
Şifre = TextBox3
DatabasePath = ThisWorkbook.Path & "\" & TextBox1 & ".mdb"
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDBatabase Password=" & Şifre
End With
cat.ActiveConnection = conn
With tbl
.Name = "rehber"
With .Columns
.Append "Kimlik", , 50 '------>Bu satırın otomatik sayı olması
.Append "Adı", , 50
.Append "Soyadı", , 50
.Append "Telefon", , 50
.Append "Cep Telefon", , 50
.Append "Adres", , 150
.Append "Not", , 150
End With
End With
cat.Tables.Append tbl
Set tbl = Nothing
Set cat = Nothing
conn.Close

 

[olymposss]

çok araştırdım ama bi türlü bulamadım.yardımcı olacak kimse yok mu?

 

[olymposss]

sn hocalarım daha göz atmamış herhalde ancak siz yardımcı olabilirsiniz.
teşekkürler

 

[olymposss]

ya foruma bakmaktan ya da arama yapmaktan aklımı kaybedecem
type=1 den başladım ancak 145 e geldim ve hala bulamadım.çok sıkıldım.
yardımlarınızı sabırla bekliyorum.

 

[olymposss]

?????????

 

[olymposss]