主题：[求助]卸载数据源所有的表的代码要怎么写？

老师好，求一段代码，谢谢！

指定一个数据源，然后卸载这个数据源所有的表。

Dim ls As new List(Of String)
For Each dt As DataTable In DataTables
    If dt.ConnectionName = "abc" Then
        ls.add(dt.name)
    End If
Next
For Each s As String In ls
    DataTables.Unload(s)
Next