初学者求助，高手来帮看看

<%@ Control Language="VB" AutoEventWireup="false" CodeFile="hot_citys.ascx.vb" Inherits="hot_citys" %>
<%@ Register TagPrefix="mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile" %>
<%@ Import namespace="system.data" %>
<%@ Import namespace="system.data.sqlclient" %>



 



<table width="80%" height="25" border="0" cellpadding="0" cellspacing="0">
<%
   
    Dim checkname As New check
   
    Dim conn As Data.SqlClient.SqlConnection
    conn = New System.Data.SqlClient.SqlConnection
    conn.ConnectionString = checkname.sjkconn1()
    conn.Open()
    Dim sql As Data.SqlClient.SqlCommand
   
    Dim rs As System.Data.SqlClient.SqlDataReader = sql.ExecuteReader
    sql = New System.Data.SqlClient.SqlCommand
    = "select * from [news] with (nolock) order by time desc"
    sql.Connection = conn
        
   
    Do While rs.Read
        
   
   
 %>
  <tr>
    <td align="left" valign="middle">热门城市：<a href="#" class="b1">
此处显示NEWS数据库中字段为BIAOTI的数据</a></td>
  </tr>
  <%
  Loop
  
  



  conn.Close()
  conn = Nothing
  %>
</table>

数据总是显示不出来，望高手指点