dim tbsource as string
If tbsource = "内部数据源" OrElse tbsource = "" Then Dim Builder As New ADOXBuilder '内部数据表创建器 Else Dim Builder As New ADOXBuilder(tbsource) '外部数据表创建器 End If Builder.Open()