Dim lst As List(Of String)lst = Connections("成绩").GetTableNames
If lst.Contains("表A") then
msgbox("存在")
End If