极度郁闷,接近崩溃,请帮忙,关于数据库

Question

就是下面的语句:如果不执行send过程,就正常,如果执行send,就出现超时错误 80040e31,万分紧急,求救 public cnsend()
 While Not rs1.EOF
            Label1.Caption = "正发送号码:" + rs1("user_phon")
            Call Sendsms("8613800474500", rs1("user_phon"), msg)
            Send   '如果不执行send过程,就正常,如果执行send,就出现超时错误 80040e31
            rs1.MoveNext
  Wend
end subPublic Sub Send()
    Set Rs = New ADODB.Recordset
    SqlNum = ""
    SqlNum = "update sms set smsnum=smsnum+1 where user_id='" + rs1("uset_id") + "'"  '这条语句在SQL执行正常
    Rs.Open SqlNum, Con, 1, 1    
End Sub

Answer 1

想直接执行sql 语句建议使用con.executePublic Sub Send()
    SqlNum = ""
    SqlNum = "update sms set smsnum=smsnum+1 where user_id='" + rs1("uset_id") + "'" 
    con.execute(SqlNum)    
End Sub

Answer 2

con.execute(SqlNum) 
也出现一样的问题

Answer 3

update语句肯定没问题,试过很多次了 
数据库文件不大,3M多,数据量也不大,几十条记录集; http://topic.csdn.net/t/20051017/17/4332039.html  网友出遇到过这样的问题,但我不知道怎么办,紧急求救

Answer 4

可能数据库中运行的sql没有结束或提交，数据库锁住了