主题：从数据库里读取数据不成功，望指点。

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

我想用以上程序联接并读取数据库数据，但是没有反应，也不报错，不知为什么，请大侠们指点迷津。