高手救命,VB中为什么取不到recordset.fields(i).value

VB中为什么取不到recordset.fields(i).value:
dll中游段代码,正常连接到数据库,测试有一条数据,fields(i).name也能得到,fields(i).value却得不到,上帝帮助我:
源代码如下:
   cnstr = "Provider = SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=appdata;Data Source=qysoft;"
   cn.ConnectionString = cnstr
   cn.Errors.Clear
   cn.Open
   Response.Write "<BR>" + cnstr + "<BR>"
   If cn.Errors.Count <= 0 Then
      Set cmd.ActiveConnection = cn
      cmd.CommandType = adCmdStoredProc
      cmd.CommandText = "qywsfc"
      cmd.Parameters(1) = "2004"
      cmd.Parameters(2) = " 5"
      cmd.Parameters(3) = "160104"
      Set rs = cmd.Execute()
      If Not (rs.BOF And rs.EOF) Then
         Response.Write "<table border = 1><tr><td>hello"
         rs.MoveFirst
         Response.Write "<tr>"
         For i = 0 To rs.Fields.Count - 1
            ls_t = rs.Fields(i).Name
            If ls_t = "" Then ls_t = "NULL"
            Response.Write "<td>" + Trim(ls_t) + "</td>"
         Next
         Response.Write "</tr>"
         Do While Not rs.EOF
            Response.Write "<tr>"
            For i = 0 To rs.Fields.Count - 1
               Response.Write "<td>" + Trim(rs.Fields(i).Value) + "</td>"
            Next
            Response.Write "</tr>"
            rs.MoveNext
         Loop
      Else
         Response.Write "没有数据"
      End If
   Else
      Response.Write "数据库连接不上"
   End If
   Response.Write "</table>"
   disconn
   OnEndPage
End Sub