Dim lst As List(Of String)lst = Connections("nwnd").GetTableNamesFor Each nm As String In lst
if nm like "*字典*" Output.Show(nm)
end ifNext