DTS activeX script help

[balistikb]

I have an activeX script in a DTS that runs a query in Access 2000. I am having a problem cause everytime I run that script I have to put in the password manually. Is there a way for me to include this in my script?

Function main()
Dim objDB
Set objDB = CreateObject("Access.Application&quot
objDB.OpenCurrentDatabase("\\MRH1\Vol1\Home\DMS_IT\SkillsAssesment\SkillsAssesment.mdb&quot
objDB.DoCmd.Openquery "qryMakeTableforExport"
objDB.CloseCurrentDatabase
objDB.Quit
main = DTSTaskExecResult_Success
End Function

 

[nigelrivett]

objDB.OpenCurrentDatabase("mydb.MDB", , "password&quot

======================================
Cursors are useful if you don't know sql.
DTS can be used in a similar way.
Beer is not cold and it isn't fizzy.

 

[balistikb]

This is what I wrote and I get an error "cannot use parentheses when calling a sub"

Function main()
Dim objDB
Set objDB = CreateObject("Access.Application&quot
objDB.OpenCurrentDatabase ("\\MRH1\Vol1\Home\DMS_IT\SkillsAssesment\SkillsAssesment.mdb",,"7718&quot
objDB.DoCmd.Openquery "qryUpdateUnmatched"
objDB.CloseCurrentDatabase
objDB.Quit
main = DTSTaskExecResult_Success
End Function