Dim dbExt As DAO.Database
    Dim tbl As DAO.TableDef
    Dim path As String
 
    Set dbExt = OpenDatabase(path)
    For Each tbl In dbExt.TableDefs
        If (tbl.Attributes And dbSystemObject) = 0 Then
            'bit operation in if condition
            DoCmd.TransferDatabase acLink, "Microsoft Access", "path", _
                                   acTable, tbl.Name, tbl.Name
        End If
    Next tbl