Как программно связать две таблицы по внешнему ключу?
Есть процедура:
Private Sub Create_my_tables()
Dim sQ As String

'создаем таблицу со списком фирм
sQ = "CREATE TABLE Firms " & vbCrLf & _
"(IdFirm COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _
"Name Text(30) NOT NULL);"
DoCmd.RunSQL (sQ)

'создаем список заказов этих фирм
sQ = "CREATE TABLE Orders " & vbCrLf & _
"(IdOrder COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _
"IdFirm LONG NOT NULL, SumOrders DOUBLE NOT NULL);"
DoCmd.RunSQL (sQ)

'создать в таблице Orders индекс по полю IdFirm
'(потому как за один проход создать таблицу и индекс у меня никак не выходило)
sQ = "CREATE INDEX KeyF ON Orders (IdFirm) WITH DISALLOW NULL"
DoCmd.RunSQL (sQ)

'И вот тут бы связать эти таблицы по полю IdFirm.
'Но как я не комбинировал выражения
'"FOREING KEY", "CONSTRAINT", "REFERENCES",
'приведенные в хелпе, ничего не вышло.
End Sub

Если у кого то получалась такая программная связь, поделитесь секретом.