设置对Microsoft Access 12.0对象库的引用允许我们使用DCount测试表是否存在.
Public Function ifTableExists(tblName As String) As Boolean
If DCount("[Name]","MSysObjects","[Name] = '" & tblName & "'") = 1 Then
ifTableExists = True
End If
End Function