Access 97 r/t 429 Setting new tabledef

[Michael Dingman]

I have a lage Office 97 App that is having this error on some client
machines at random. So far I have not been able to find the cause.
The error message is 'ActiveX componet can't create object'.
Function LinkTempTable(sTmpTable, sLocalTable)
Dim dbs As Database, tdf As TableDef

On Error Resume Next
DoCmd.DeleteObject acTable, sLocalTable
On Error GoTo 0

Set tdf = New TableDef <<<---- Get r/t error here
tdf.Name = sTmpTable
tdf.SourceTableName = sLocalTable
tdf.Connect = ";DATABASE=" & TempPath & "XX.tmp;PWD=XXXXXXXXX;"
Set dbs = CurrentDb
dbs.TableDefs.Append tdf
dbs.TableDefs.Refresh
Set tdf = Nothing
Set dbs = Nothing
End Function

Any suggestions would be greatly appreciated