不知有沒有人知道-2147467259如何解決?(編號：8133)

近日小弟重新按裝電腦內的軟體後Run VB
dim conn as new adodb.conn...
dim rs1 as new adodb.re....
dim rs2 as new adodb.re....
dim str,str2,str3
str = "DRIVER={Sybase System 11};UID=bb;SRVR=NT;DB=aa;PWD=b;"
str2="Select * from cc"
str3="Select * from dd"
conn.open str
rs2.CursorLocation = adUseClient
rs2.Open str2, Conn, adOpenStatic, adlockBatchOptimistic
rs1.CursorLocation = adUseClient
rs1.Open str2, Conn, adOpenStatic, adlockBatchOptimistic
while not rs2.eof
rs1("mydata1")=rs2("mydata2")
rs1.UpdateBatch
rs2.movenext
wend
但是到了UpdateBatch時就出現了,-2147467259
Data provider or other service returned an E_FAIL Status
的錯誤,但是在其它的電腦測試卻不會,不知有沒有人知道如何解決?
vb6+sybase
ado2.1