判斷表是否存在的函數(shù)

'******************** Code Start ************************
    ' This code was originally written by Dev Ashish.
    ' It is not to be altered or distributed,
    ' except as part of an application.
    ' You are free to use it in any application,
    ' provided the copyright notice is left unchanged.
    '
    ' Code Courtesy of
    ' Dev Ashish
    '
    '
    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
    'Table Exists
    fExistTable = True
    Exit For
    End If
    Next i
    Set db = Nothing
    End Function
    '******************** Code End ************************