Function table_exists(TabName As String, ByRef db As database) As Boolean
    Dim tbl As TableDef
 
    table_exists = False
    'check if table exists
    For Each tbl In db.TableDefs
        If tbl.Name = Trim(TabName) Then
            table_exists = True
        End If
    Next tbl
End Function