For each objColumn in objTable.PrimaryKeys
throws an error
Changing the script to
For j=0 to objTable.PrimaryKeys.Count - 1
Set objColumn = objTable.PrimaryKeys(j)
I'm not sure whether it's a MyGeneration problem, or Windows 7, or maybe a .NET Framework version issue.
I did see the problem mentioned in