标题：计算股指合约当天收盘前结算价并输出到Excel

sub DataSelect()
Set adoConn=CreateObject("Adodb.Connection")
cnstring = "driver=SQL Server;Server=10.38.32.65;DATABASE=TempBiz;UID=sa;PWD=jyb2010"
strSql="Select * From [TempBiz].[dbo].[marketdata_jzt]"
adoConn.ConnectionString = cnstring
adoConn.Open cnstring
Set Rs=adoConn.Execute(strSql)
If Rs.EOF THEN
MsgBox "查询结果：数据表为空"
Exit sub
Else
Do While Not Rs.EOF
MsgBox Rs("newp").Value
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
End If
end sub

我想用这段代码读取数据里的数据，为什么程序运行后没有反应。请大侠能指点迷津。