< % ERROR: @Import Namespace="System.data.SqlClient" % > <script language="VB" runat="server"> Sub Page_Load(Src As Object, E As EventArgs) Dim strConn as string ="server=qcid-das-tudc;uid=myid;pwd=mpwd" Dim Conn as new SQLconnection(strConn) Dim strSQL as string = select distinct id from anndemo Dim Cmd as New SQLCommand(strSQL,Conn) Conn.Open() cy.DataSource = Cmd.ExecuteReader() cy.DataBind() Conn.close() End Sub </script>