主题：一个外部表，有一金额字段，类型为双精度，用代码如何改成高精度？

'1,增加列

Dim Builder As New ADOXBuilder

Builder.Open() '打开ADOXBuilder

With Builder.Tables("表A")

    .AddColumn("数量1" ,ADOXType.Decimal)

End With

Builder.Close() '关闭ADOXBuilder

'2,重新打开项目,复制数据

For Each dr As DataRow In DataTables("表A").DataRows

    dr("数量1") = dr("数量")

Next

DataTables("表A").Save()

'3,删除列 和 重命名列

Dim Builder As New ADOXBuilder

Builder.Open() '打开ADOXBuilder

With Builder.Tables("表A")

    .DeleteColumn("数量")

    .RenameColumn("数量1","数量")

End With

Builder.Close() '关闭ADOXBuilder

'4,重新打开项目