Asp classic DbStatus值-在不同环境中为1 vs 0

以下是我在VB中通过ODBC检索数据的代码：

Dim Ssql
Dim dbstatus 
Dim rs

'*************  

 Ssql =  " Select * from User_Access A Where A.User_pwd ='1234' "
  set rs = Server.CreateObject("ADODB.RecordSet")
  rs = DB.execute(Ssql,dbstatus)      
  Response.Write(dbstatus)
  If dbstatus <> 0 Then
        'Error code here
  Else
        'code here 
  END IF

'*************

Dim-Ssql
暗星体
暗淡的
'*************  
Ssql=“选择*从用户访问A，其中A.User\u pwd='1234'”
set rs=Server.CreateObject（“ADODB.RecordSet”）
rs=DB.execute（Ssql，dbstatus）
Response.Write（dbstatus）
如果dbstatus为0，则
'这里是错误代码
其他的
“代码在这里
如果结束
'*************

代码工作正常。成功执行sql语句时，dbstatus值为-1。但是根据代码，它应该返回0以便进一步执行。对于非0，它将给出错误

我在SQLServer2005和Windows7上执行此操作

***但是，在成功执行sql语句的同一代码中，在ODBC版本和sql server版本不同的其他环境中，dbstatus值为0

有人能帮我吗。

---

如果您使用连接，请提前感谢。在ADO和VB中执行Methode第二个参数表示受影响的行