我是菜鸟，学了一招

Imports System.Data
Imports System.Data.SqlClient

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents DataList1 As System.Web.UI.WebControls.DataList

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private connstr As String = ConfigurationSettings.AppSettings("LinkInfomation")

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As New SqlConnection(connstr)
        conn.Open()
        Dim adpt As New SqlDataAdapter("Select * from ins", conn)
        Dim ds As New DataSet
        adpt.Fill(ds, "itable")
        DataGrid1.DataSource = ds.Tables.Item("itable").DefaultView
        DataGrid1.DataBind()
    End Sub

    Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound

        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.EditItem Then
            Dim l As Label = CType(e.Item.FindControl("x"), Label)
            l.Text = Left(DataBinder.Eval(e.Item.DataItem, "sort").ToString, 2)
            Dim m As Label = CType(e.Item.FindControl("y"), Label)
            Dim i As Integer = DataBinder.Eval(e.Item.DataItem, "num")
            If i = 1 Then
                m.Text = "<font color='red'>是</font>"
            Else
                m.Text = "否"
            End If
        End If
    End Sub

    Private Sub DataList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataList1.SelectedIndexChanged

    End Sub
End Class