怎么用代码判断一个ACCESS数据库中某表存不存在，不存在话，建立该表

如何用代码判断一个ACCESS数据库中某表存不存在，不存在话，建立该表
如何用代码判断一个ACCESS数据库A中某表(B表）存不存在，不存在话，建立该表
------解决思路----------------------
判断access表是否存在，不存在就创建表
------解决思路----------------------

Sub AllTables()

    Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentData

    ' Search for open AccessObject objects in AllTables collection.

    For Each obj In dbs.AllTables

        If obj.IsLoaded = True Then

            ' Print name of obj.

            Debug.Print obj.Name

        End If

    Next obj

End Sub

------解决思路----------------------

RunCommand 方法用于执行内置菜单命令或内置工具栏命令。

expression.RunCommand(Command)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

Command  AcCommand，必需。固有常量，指定要执行的内置菜单命令或内置工具栏命令。

AcCommand 可以是下列 AcCommand 常量之一：

acCmdDiagramNewTable

acCmdNewObjectTable

acCmdQueryTypeMakeTable

acCmdTableAddTable

------解决思路----------------------
参数说明
Conn  ADODB.connection
TableName 表名
返回值，存在返回True 不存在返回False

Public Function TableExists(ByRef Conn As Object, ByVal TableName As String) As Boolean

    Dim Rs As Object

    TableExists = False

    If Conn.State = 0 Then Exit Function

    Set Rs = Conn.OpenSchema(adSchemaTables)

    Do Until Rs.EOF

        If Rs("TABLE_NAME") = TableName Then Exit Do

        Rs.MoveNext

    Loop

    TableExists = Not Rs.EOF

    Set Rs = Nothing

End Function