主题：如何用一列显示某列内容出现的次数？

不能这样编号的，看看帮助中关于编号的内容吧。

If e.DataCol.Name = "第一列" AndAlso e.dataRow.IsNull("第二列") Then
    e.dataRow("第二列") =Format(Tables("test").Compute("Count(第一列)","[第一列] = '" & e.dataRow("第一列")  & "'"),"000")
end if

那就在AfterEdit事件中也设置一下代码，如果修改的是第一列，则重算第二列的编号。
 
不过提醒你：
 
真正的数据管理软件，不应该这样编号，行的编号应该就是人的身份证号码一样，一旦生成，就不应该改变，就像人的身份证号码，不会因为他人的死亡而改变，追求编号的连续是没有任何实际意义的。
你可以参考一下帮助中“网络环境下的复杂编号”