Repeater items

    Private Sub BindIt2()
        Dim cnn As New SqlConnection(ConfigurationSettings.AppSettings.Ge  t("KWPrismWebConnectionString").ToString)
        Dim cmd As SqlCommand = cnn.CreateCommand
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "Select top 15 * from [User] order by UserName"
        Dim daUser As New SqlDataAdapter
        Dim dsUser As New DataSet
        Dim dv As New DataView

        daUser.SelectCommand = cmd
        daUser.Fill(dsUser, "Users")


        With dv
            .Table = dsUser.Tables("Users")
            .RowFilter = "UserName IN ('100220rog','100220bill')"
        End With

        With DataList1
            .DataSource = dv
            .DataBind()
        End With

        cmd.Dispose()
    End Sub