LCLSX SQL Server [DBNMPNTW]Access denied on Domino server

I have an agent to access SQL Server. The code is below

Dim lc As New LcConnection ( “oledb” )

lc.provider = “SQLOLEDB”

lc.server = “serverip”

lc.database = “dbname”

lc.userid = “usd”

lc.password = “pwd”

lc.Connect

If I run it locally on my pc. It manage to connect to the SQL server. But when I schedule it on server, I get the message below

ErrorRecord: HResult: 0x80004005

Description: [DBNMPNTW]Access denied.

SQLErrorInfo: 08001

Source: Microsoft OLE DB

Appreciate any help

Subject: LCLSX SQL Server [DBNMPNTW]Access denied on Domino server

Did you find the solution ? Or anyone else ?

I have the exact same problem.

Agent used to work fine. When I came back from Parental leave, it no longer worked on schedule, but manual run works fine.

I think some changes were made on the SQL server while I was away but I have no idea what exactly. Our DB Administrator seems clueless.

Anyone has an idea ?

Thanks a lot