oledb连接SQL出现问题?求解答，急

oledb连接SQL出现问题，单位用的是局域网，域账号管理。
在本人机器上测试程序时，下面这段程序没有问题，而且连接速度很快。
在其他人的机器上就显示数据库无法连接。
测试后发现，即使把下面的sa改成sa11在本人的机器上也可以连上SQL.
我本人的账号有访问SQL数据库的权限。
得出结论，下面的代码使用的是域信任连接，而没有按sa连接。
请高手解答，为什么明明设的是sa连接，为什么实际上却是按windows验证取的连接。

由于程序编写了将近2个月的时间，到马上使用时,到其它人机器上测试才发现问题。很着急
环境：SQLsever  Name:codtest1  database name:erp41  uid=sa  password:codtest1
本人的机器不在SQLsever上。

Dim strConnect As String
Dim rsttemp As ADODB.Recordset
Set rsttemp = New ADODB.Recordset
strConnect = "Provider=MSDataShape;Data Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=codtest1;Initial Catalog=erp41;user id=sa;password=codtest1"
strSQL = "SELECT Version.* FROM Version"
rsttemp.Open strSQL, strConnect, adOpenDynamic, adLockPessimistic