Can someone translate this code for use in Active X Script Task in package?

set dbs=currentDb
set tdf=dbs.tabledefs!BaseVieCiti

set rst=dbs.openrecordset("BaseVieCiti")
dbs.TableDefs.Refresh
set idx=tdf.indexes("tri")

rst.index = idx.name


Thx a lot!