如何检查MS Access for vb宏中是否存在表

Function TableExists(strTableName As String) As Boolean
    On Error GoTo Error_Handler
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef

    Set db = CurrentDb
    Set tdf = db.TableDefs(strTableName)

    TableExists = True

Exit_Function:
    Set tdf = Nothing
    Set db = Nothing
    Exit Function

Error_Handler:
    TableExists = False
    Resume Exit_Function
End Function

Sub CheckTableExists()
    Dim strTableName As String
    strTableName = "YourTableName"

    If TableExists(strTableName) Then
        MsgBox "Table " & strTableName & " exists."
    Else
        MsgBox "Table " & strTableName & " does not exist."
    End If
End Sub