怎样判断一个表是否存在于数据库中? (DAO方法)

Function fExistTable(strTableName As String) As Integer
    Dim db As Database
    Dim i As Integer

    Set db = DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
        If strTableName = db.TableDefs(i).Name Then
            ' 表存在
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function

'******************** Code End ************************