I have the follwoing ActiveX task in DTS to run a function in a Microsoft Access database. The database now has security added to it and I need to be able to login within the following code;

Function Main()
Set objAccess = GetObject("\\file-serv\p\mis\licadmin\Lic_app.mdb")

X = objAccess.Run("StartBatch1", 41)

objAccess.Quit
Main = DTSTaskExecResult_Success
End Function


How do I do that?