提示实时错误'3265',找了很久解决不了,请帮忙!!!

Question

我做了个程序,但是运行时有时会提示"实时错误'3265',在对应所需名称或序数的集合中,未找到项目",有时又是正常的.
具体代码如下,请大家指教!谢谢!
(说明:下面是短消息从库中自动读取出来判断并改变短消息类型的语句)
Private Sub saveauto()
Set rs = db.OpenRecordset("SELECT * FROM sms_send where Sms_Type=2 order by Sms_Time")   '从库中取出类型为2的短消息
If rs.EOF Then
timecount.Caption = Now()
sendnum.Caption = "待发短消息数：0"
Else
rs.MoveFirst
Do Until rs.EOF
If Len(Trim(rs.Fields("sms_telnum"))) >= 9 Then   '判断短消息号码是不是大于9,是的话就将短消息类型改为3,否则就改为4.
rs.Edit
rs.Fields("Sms_Type").value = 3
rs.Update
else
rs.Edit
rs.Fields("Sms_Type").value = 4
rs.Update
End If
rs.MoveNext
Loop
End If
End Sub

Answer 1

错误调试时,黄色提示错误处为rs.Fields("Sms_Type").value  =  3 或rs.Fields("Sms_Type").value  =  4

Answer 2

SELECT * FROM sms_send where Sms_Type=2 order by Sms_Time
应该是看你这个语句的执行结果了，如果没有返回结果，那么可能报这个错误，你可以在报错的时候监视一下rs，或者把判断条件改成
If rs.recordcount=0 Then
timecount.Caption = Now()
sendnum.Caption = "待发短消息数：0"
Else
...
End If