将计算列添加到Access数据库中的所有表

Question

我有250个具有相同结构的表的数据库。我将需要向所有表中添加一个计算列。但是，我收到运行时错误3191，但我只是无法弄清楚出什么问题了。有人知道吗？

谢谢 M。

Dim db As DAO.Database
Dim td As DAO.TableDef
Dim Fld As DAO.Field2

Set db = CurrentDb()

    For Each td In db.TableDefs
        Set Fld = td.CreateField("Stock", dbInteger)
        Fld.Expression = "[CS]-[RS]-[TBO]"
        td.Fields.Append Fld
    Set Fld = Nothing
    Next

Set td = Nothing
Set db = Nothing