如何判断ACCESS数据库中是否存在某个表？

Question

只引用 microsoft activex data objects 2.1 library，如何判断指定ACCESS数据库中是否存在名为“LOVE”的表？
还有一个问题：如何判断某个Excel文件是否已经打开？

Answer 1

'错误侦测法.'true 存在,FALSE 不存在.
Function ChkTable(Cnn As adodb.Connection, TableName As String) As Boolean
        On Error Resume Next
        Dim StrSql As String
        
        StrSql = "SELECT * FROM " & TableName
        Cnn.Execute StrSql
        ChkTable = (Err.Number = 0)
End Function