How to check whether a table exiists (1 Viewer)

Function TableExists(strTableName As String) As Boolean
    Dim db As Database
    Dim I As Integer
    On Error GoTo Err_Handler
    TableExists = False
    Set db = DBEngine.Workspaces(0).Databases(0)
    db.TableDefs.Refresh
    For I = 0 To db.TableDefs.count - 1
       If strTableName = db.TableDefs(I).Name Then
           TableExists = True
           Exit For
       End If
    Next I
TableExists_Exit:
    Set db = Nothing
    Exit Function
Err_Handler:
    Select Case Err.Number
    Case 3376
        TableExists = False
        Resume TableExists_Exit
    Case 3265
        TableExists = False
        Resume TableExists_Exit
    Case Else
        MsgBox Err.Description, vbExclamation, "Error #: " & Err.Number
        Resume TableExists_Exit
    End Select
End Function

Function TableExists(TableName As String) As Boolean
  On Error Resume Next
  Dim x As String
  x = CurrentDb.TableDefs(TableName).Name
  TableExists = Not CBool(Err.Number)
End Function

Public Function CheckTableExists(strTable As String) As Boolean

'******************************
'CR 12/08/2008
'Checks if named table exists
'******************************

Dim strName As String
     
On Error Resume Next

'If table exists then strName will be <> ""
    strName = CurrentDb.TableDefs(strTable).Name
    CheckTableExists = Not (strName = "")
    
   'tidy up
    strTable = "" 
    strName = "" 
End Function

Function TableExists(Name As String) As Boolean
    TableExists = DCount( _
        "*", 
        "MSysObjects", _
        "Name = '" & Name & "' AND (Type = 1 Or Type = 6)")
End Function

Function TableExists(Name As String) As Boolean
    TableExists = DCount( _
        "*", 
        "MSysObjects", _
        "Name = '" & Name & "' AND (Type = 1 Or Type = 4 Or Type = 6)")
End Function