主题：关于增加内部表

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") '创建表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) '增加表
Builder.Close()

为什么新增表后，看不见，后台其实已经增加。必须要在程序关闭后重新打开才能看见增加的“订单”表。有什么办法可以立即看到增加的表吗？

就没有办法能像foxtable系统那样，直接增加就出来了的代码吗？？？求助啊