主题：怎么样写外部数据源表是否存在的语句？

Dim Builder As New ADOXBuilder("dghm") '要指定数据源名称

Dim tbl As ADOXTable
Builder.Open()

With Builder
    .DeleteTable("订单")  '删除表
End With

tbl = Builder.NewTable("订单") '创建表
With tbl
    .AddColumn("订单" ,ADOXType.String,30)
    .AddColumn("产品" ,ADOXType.String, 30)
    End With
Builder.AddTable(tbl) '增加表
Builder.Close()