"发送者非远程设备"?

我用devrs库里面存有的手机号码发的短信,怎么我的接收终端说是"发送者非远程设备"?

这个会是什么原因造成的呢?

smrs.MoveLast '找到消息记录的上一个记录
i = smrs.Fields("信息编号")
devrs.Seek "=", str2
If devrs.NoMatch Then
MsgBox "发送者非远程设备，已经将此信息删除！", 0, "提示信息"
MSComm1.Output = "AT+CMGD=" + aaa + Chr$(13) '及时删除新的短消息！
Exit Sub
End If
--------------------编程问答-------------------- 不知道 --------------------编程问答-------------------- 明明是你的程序里自己写的信息么：
MsgBox "发送者非远程设备，已经将此信息删除！"，0，"提示信息 "

补充：VB ,  基础类