写数据库的问题。请大家帮忙

Question

Select Case lngResult
      Case 1
                strShow = "Isdn号＝" & strIsdnNum & " 对方手机号＝" & strSourAddr & "消息内容＝" & strMsg
          lblGetSmsNum.Caption = CStr(CInt(lblGetSmsNum.Caption) + 1)
      Case 0
          strShow = "没有收到短消息"
      Case Else
          strShow = "其它错误"
  End Select因为我只会asp．这次是vb．目的就是当case １　成立时，在显示消息前，把＂新短信＂的字符到写入数据库．下面是我改的．
 Select Case lngResult
      Case 1      dim   cn   as   new   adodb.connection   
  dim   rs   as  new   adodb.recordset   
  dim   stmp   as   string   
  stmp="Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\test.mdb;Persist   Security   Info=False;Jet   OLEDB:Database   Password=;"
  cn.open   stmp   
  stmp="insert   into   test(test）   values('新短信')"  
rs.open   stmp,cn
re.close          strShow = "Isdn号＝" & strIsdnNum & " 对方手机号＝" & strSourAddr & "消息内容＝" & strMsg
          lblGetSmsNum.Caption = CStr(CInt(lblGetSmsNum.Caption) + 1)
      Case 0
          strShow = "没有收到短消息"
      Case Else
          strShow = "其它错误"
  End Select
但是我测试的时候当case　成立的时候，数据库没有任何变化。是不是哪里写错了，还是vb要有什么环境？

Answer 1

Select Case lngResult
    Case 1
        Dim cn As New ADODB.Connection
        Dim stmp As String
        stmp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;User ID=Admin; Password="
        cn.Open stmp
        stmp = "insert into test(test) values('新短信')"
        cn.Execute stmp
        
        strShow = "Isdn号＝" & strIsdnNum & " 对方手机号＝" & strSourAddr & "消息内容＝" & strMsg
        lblGetSmsNum.Caption = CStr(CInt(lblGetSmsNum.Caption) + 1)
        Set cn = Nothing
    Case 0
        strShow = "没有收到短消息"
    Case Else
        strShow = "其它错误"
End Select