Modules & VBA :: Linking Subdatasheets To Main Table

I have a main table and multiple other tables that I want to link to each row of the main table.The main table "Data" consists of columns (Name, x, y) where "Name" is the primary key and all values are unique.Each of the other tables have columns (Name2, z) where the value of "Name2" is the same in each row and also corresponds to the table name.

I want to make each table a subdatasheet of "Data" where each row in "Data" shows the values in the table corresponding to its name. (i.e. where Name = Name2).Below is what I have so far, but the code doesn't work because linkchildfields and linkmasterfields need to be run from a subform.(?)

The error I am getting is 'Property Not Found' once the code reached the linkchildfields line.

Quote:

Sub STS()
Dim i As TableDef
Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb()
Set tbl = db.TableDefs("Data")

[code]....