数据库可插入，却不能修改是什么原因呢？谢谢！

Question

VB6+SQL2005，原来用SQL2000后改SQL2005，开发用的电脑上都能正常插入、修改等操作，但是把程序放在局域网内却只能进行插入操作，修改不了，也没有任何错误提示，连接水晶报表打印是空白的。而且奇怪的是同一个程序里有几个模块，就其中一个模块出问题，其他模块都正常。这个出问题的模块以前都正常，最近重新生成后才出现这个奇怪的问题。不知道是什么原因？有没有朋友遇到过？谢谢！

Answer 1

Public Function exesql(ByVal sql As String) As ADODB.Recordset
  sql = Trim$(sql)
    Set conn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    conn.ConnectionString = "DSN=TIME;UID=sa;PWD=1234"
    conn.Open
    Set rst.ActiveConnection = conn
    rst.LockType = adLockOptimistic
    rst.CursorType = adOpenKeyset
    rst.Open sql
    Set exesql = rst
    Set rst = Nothing
    Set conn = Nothing
End Function
我用以下过程调用
EditSQL = "UPDATE GongZuoRenWuDanNewVersionTble SET PiaoHao = '" & Trim(Text1.Text) & "'" 
Set mrc = exesql(EditSQL)
    MsgBox "保存成功！", vbOKCancel + vbInformation, "成功提示！"

Answer 2

'这样试试：
EditSQL = "UPDATE GongZuoRenWuDanNewVersionTble SET PiaoHao = '" & Trim(Text1.Text) & "'" 
conn.execute EditSQL