删除后,如果想实时显示,这样写
Dim Builder As New ADOXBuilderBuilder.Open()With Builder .DeleteTable("表B")End WithBuilder.Close()DataTables.Unload("表B")