设置对Microsoft Access 12.0对象库的引用允许我们使用DCount测试表是否存在.
原文链接：https://www.f2er.com/vb/255856.htmlPublic Function ifTableExists(tblName As String) As Boolean
If DCount("[Name]","MSysObjects","[Name] = '" & tblName & "'") = 1 Then
ifTableExists = True
End If
End Function