vb与sql数据库下下给access创建一个有自动编号字段的表

vb中sql = "ALTER TABLE [" & tbName & "] add [样本号] AutoIncrement Not Null

sql中 sql = "ALTER TABLE [" & tbName & "] add [样本号] int IDENTITY" 'sql数据库中立自动编号的字段