テーブルが存在するか判定するには

Public Function ExsistTable(strTableName As String) As Boolean

    Dim objAccessObject As AccessObject

    For Each objAccessObject In Application.CurrentData.AllTables
        If strTableName = objAccessObject.Name Then
            ExsistTable = True

            Exit Function

        End If

    Next

    ExsistTable = False

End Function