Hi friends,  I was working with the Security Seminar and in the lesson 29 Richard teach about the Create and Destroy Tables link.  I did it but when I do the Create link the tables comes with number instead of their own names.  How can I fixt that?  Thks is the code that I am used:

Public Sub CreateDatabaseLinks()

    Dim ws As DAO.Workspace
    Dim db As DAO.Database
    Dim td As DAO.TableDef
    Dim Attrib As Long
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(BE_DATABASE, False, False, "MS Access;PWD=" & BE_PASSWORD)
    For Each td In db.TableDefs
        Attrib = (td.Attributes And dbSystemObject)
        If Attrib = 0 Then 'not a system table
            DoCmd.TransferDatabase acLink, "Microsoft Access", db.Name, acTable, td.Name, False, False
        End If
    Next
    db.Close
    ws.Close
    Set db = Nothing
    Set ws = Nothing
    Set td = Nothing
            
    
End Sub

I will show you the tables links that is created.