读不不pubs数据库的

<%@ Page Language="VB" AutoEventWireup="false"  %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace ="System.Data" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
    <script language="VB" runat="server">
        Sub page_load()
            Dim myDs As New Dataset
            Dim Connstr As String
            Connstr = "Server=local;database=pubs;user=sa;password=sa;"
            Dim SQLSelect As String
            SQLSelect = "SELECT * FROM Titles"
            Dim mySqlConn As New SqlConnection(Connstr)
            Dim mySqlDA As New SqlDataAdapter(SQLSelect, Connstr)
            mySqlDA.Fill(myDs)
            titlelist.DataSource = myDs.Tables(0).DefaultView
            titlelist.DataBind()
           
            
        End Sub
        'Dataset， SqlConnection，SqlDataAdapter not include
        </script>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    <h3> Binding to a DataList Control</h3>
        <asp:DataList ID="titlelist" RepeatColumns="3" GridLines="Both" CellPadding="5" runat="server" >
        <ItemTemplate>
        <h5>
        <%#DataBinder.Eval(Container.DataItem,"title")%> <br />
        
        </h5>
        
        
        </ItemTemplate>
        
        
        </asp:DataList>
        
    
    </div>
    </form>
</body>
</html>