只是查询数据库，会让vb产生错误，退出？

Question

一个小程序，连接短信网关，登陆没有问题，可是一发送短信vb就产生错误
form_load里面，我是这样定义的
Private Sub Form_Load()
    Set conYl001 = New Connection
    Set rstSend = New Recordset
    
    With conYl001 '定义连接对象的属性
        .Provider = "sqloledb"
        .ConnectionString = "user id =sa;password=fjdksla;" & "data source=yl002;" & "initial catalog=yl001;"
        .Open        
    End With
    
    With rstSend '定义记录集属性
        .CursorLocation = adUseServer
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic        
    End With
    
End Sub发送短信
Private Sub cmdSend_Click()
    On Error GoTo errmsg
        Dim ret As Byte
        Dim destaddr As String '目标地址
        Dim userdata As String '发送的短信内容
        Dim udlen As Long  '数据长度
        Dim smid As Long '返回的短信编号
        Dim FCS As Byte '返回失败原因
        rstSend.Open "select mobile ,content,smsflag from send where smsflag=0 order by id desc", conYl001, 1, 3
            
       '循环发送短信语句
         Do While Not rstSend.EOF
         rstSend.AddNew
         userdata = rstSend.Fields("content")
         destaddr = rstSend.Fields("mobile")
         udlen = Len(userdata)
         '调用发送短信的函数
          ret = SubmitAExEx(2, 1, "99999", 2, 1, "13733333333", 0, 0, 0, 0, 0, 8, 0, "2004/12/07 14:55:00", "2004/12/07 14:55:00", 0, 0, udlen, userdata, "service_type ", 0, 0, 0, 0, 3, "999999", "01", destaddr, 20, 1, destaddr, smid, FCS)
          rstSend.Update
          rstSend.Fields("smsflag") = 1
          rstSend.MoveNext
          Loop
          
errmsg:
        MsgBox "error " & Err.Number & " error des " & Err.Description & " error help " & Err.HelpContextEnd Sub

Answer 1

Set conYl001 = New adodb.Connection
    Set rstSend = New adodb.Recordset另外不要用ADDNEW的方法，用INSERT INTO的SQL语句执行效率高，你试试

Answer 2

to ryuginka(除了我谁敢用真名：刘银华) ：谢谢，我已经改过来了，但问题还是没有解决。只要一点击发送按钮，就会弹出对话框：“vb6产出了错误，会被windows关闭。你需要重新启动程序。”
事件查看器里面还没有记录to  gordon1979(CGD) : 权限我是有的

Answer 3

    单步debug~

Answer 4

to longki(农民写代码) ：单步debug也不行啊
错误处理都用不上。只要一点击发送按钮，就会弹出对话框：“vb6产出了错误，会被windows关闭。你需要重新启动程序。正在创建错误日志 。”事件查看器里面没有错误日志阿，请问怎么查看？

Answer 5

连接网关 ：
Private Sub cmdConnect_Click()
 ' On Error GoTo errmsg
   Dim ret As Boolean
  ret = IFInitInterface(5, 1, "211.xx.xx.xx 7890 5000") '初始化
    If ret = True Then
    'cmdLoggin.Enabled = True
    MsgBox "初始化成功", vbOKCancel, "连接网关"
    cmdExit.Enabled = True
Else
   MsgBox "初始化失败"
End If用步进debug运行了
  ret = IFInitInterface(5, 1, "211.137.207.101 7890 5000") '初始化
   显示 ret的值为true，竟然弹出“初始化失败”的消息框？？