Link a Table through VBA

Public Function LinkTable(strLocalName As String, strSourceName As String, strSourceLocation As String, blnHideTable as boolean)
'Links a table to the current project
If fFindTable(strLocalName) Then
    DoCmd.DeleteObject acTable, strLocalName
End If
    DoCmd.TransferDatabase acLink, "Microsoft Access", strSourceLocation, acTable, strSourceName, strLocalName
    
    Dim tb As New ADOX.Table
    Dim cat As New ADOX.Catalog
    
    cat.ActiveConnection = CurrentProject.Connection
    Set tb = cat.Tables(strLocalName)
    tb.Properties("Jet OLEDB:Table Hidden In Access") = blnHideTable 
    
End Function

Public Function fFindTable(strTableName As String, Optional cn As ADODB.Connection) As Boolean
  Dim rs As ADODB.Recordset
  'Set cn = New ADODB.Connection
  If cn Is Nothing Then
    Set cn = CurrentProject.Connection
  End If
  
  Set rs = cn.OpenSchema( _
         adSchemaTables, Array(Empty, Empty, strTableName))
  fFindTable = Not rs.EOF
  rs.Close
  Set rs = Nothing
End Function