Function identity(b As Variant) As Long'适用于在生成表是加自动编号
Static ac As Integer
If IsNull(ac) Then ac = 0
ac = 1 + ac
identity = ac
End Function

生成查询的代码

SELECT 商品库存状况.商品类别, 商品库存状况.库存数量, 商品库存状况.成本均价, 商品库存状况.库存总价, identity([商品类别]) AS 序号 INTO 商品库存状况_1
FROM 商品库存状况;