Dim conPubs As OdbcConnection
Dim conString As String
conString = System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString")
conPubs = New OdbcConnection( conString )
Dim dtrReader As OdbcDataReader
cmdSelect = New OdbcCommand( "SELECT * FROM VIPPackages ORDER BY PackageID", conPubs )
conPubs.Open()
dtrReader = cmdSelect.ExecuteReader()
if dtrReader.HasRows then
  rpVIP.DataSource = dtrReader
  rpVIP.DataBind()
  dtrReader.Close()
end if
cmdSelect = New OdbcConnection( "SELECT ID FROM VIPPackage", conPubs )
Dim intID1 As Integer = cmdSelect.ExecuteScalar()
cmdSelect = New OdbcConnection( "SELECT OOPS FROM VIPPackage", conPubs )
Dim intOops1 As Integer = cmdSelect.ExecuteScalar()
Dim strUserChose As String = Request.QueryString("chosen")
if strUserChose = 3 then
cmdSelect = New OdbcCommand( "SELECT * FROM People ORDER BY PersonID", conPubs )
dtrReader = cmdSelect.ExecuteReader()
if dtrReader.HasRows then
  rpPeople.DataSource = dtrReader
  rpVIP.DataBind()
  dtrReader.Close()
end if
end if
cmdSelect = New OdbcConnection( "SELECT ID FROM People", conPubs )
Dim intID2 As Integer = cmdSelect.ExecuteScalar()
cmdSelect = New OdbcConnection( "SELECT Oops FROM People", conPubs )
Dim intOops2 As Integer = cmdSelect.ExecuteScalar()
cmdSelect = New OdbcCommand( "SELECT * From Humans ORDER BY HumanID", conPubs )
dtrReader = cmdSelect.ExecuteReader()
if dtrReader.HasRows then
  rpHumans.DataSource = dtrReader
  rpVIP.DataBind()
  dtrReader.Close()
end if
cmdSelect = New OdbcConnection( "SELECT ID FROM Humans", conPubs )
Dim intID3 As Integer = cmdSelect.ExecuteScalar()
cmdSelect = New OdbcConnection( "SELECT Oops FROM Humans", conPubs )
Dim intOops3 As Integer = cmdSelect.ExecuteScalar()
conPubs.Close()

'''  OR  '''
Dim conPubs As OdbcConnection
Dim conString As String
conString = System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString")
conPubs = New OdbcConnection( conString )
Dim dtrReader As OdbcDataReader
Dim strUserChose As String = Request.QueryString("chosen")
Dim cmdSelect As New OdbcCommand( "SELECT * FROM VIPPackages ORDER BY PackageID", conPubs )
Dim cmdSelect3 As New OdbcCommand( "SELECT * FROM Humans ORDER BY HumanID", conPubs )
Dim cmdSelect4 As New OdbcCommand( "SELECT ID FROM VIPPackages", conPubs )
Dim cmdSelect5 As New OdbcCommand( "SELECT Oops FROM VIPPackages", conPubs )
Dim cmdSelect6 As New OdbcCommand( "SELECT ID FROM People", conPubs )
Dim cmdSelect7 As New OdbcCommand( "SELECT Oops FROM People", conPubs )
Dim cmdSelect8 As New OdbcCommand( "SELECT ID FROM Humans", conPubs )
Dim cmdSelect9 As New OdbcCommand( "SELECT Oops FROM Humans", conPubs )
conPubs.Open()
dtrReader = cmdSelect.ExecuteReader()
if dtrReader.HasRows then
  rpVIP.DataSource = dtrReader
  rpVIP.DataBind()
  dtrReader.Close()
end if
if strUser = 3 then
  Dim cmdSelect2 As New OdbcCommand( "SELECT * FROM People ORDER BY PersonID", conPubs )
  dtrReader = cmdSelect2.ExecuteReader()
  if dtrReader.HasRows then
    rpPeople.DataSource = dtrReader
    rpPeople.DataBind()
    dtrReader.Close()
  end if
end if
dtrReader = cmdSelect3.ExecuteReader()
if dtrReader.HasRows then
  rpHuman.DataSource = dtrReader
  rpHuman.DataBind()
  dtrReader.Close()
end if
intID1 = cmdSelect4.ExecuteScalar()
intOops1 = cmdSelect5.ExecuteScalar()
intID2 = cmdSelect6.ExecuteScalar()
intOops2 = cmdSelect7.ExecuteScalar()
intID3 = cmdSelect8.ExecuteScalar()
intOops3 cmdSelect9.ExecuteScalar()
conPubs.Close()

<asp:DataList
    ID="dlList"
    repeatcolumns="3"
    forecolor="#FFFFFF"
    cellpadding="3">

'''  COMPARED TO  '''

<asp:DataList ID="dlList" repeatcolumns="3" forecolor="#FFFFFF" cellpadding="3">

<asp:GridView ID="gv_Files" runat="server" AutoGenerateColumns="false"   
      
        OnPageIndexChanging="gv_Files_PageIndexChanging"  
        OnSorting="gv_Files_Sorting"
        OnSorted="gv_Files_Sorted" 
         
        AllowPaging="true"
        AllowSorting="true"
        
        PageSize="25"
        PagerSettings-Mode="NextPreviousFirstLast"
        PagerSettings-NextPageText="Next Page" 
        PagerSettings-PreviousPageText="Previous Page"
        
        Width="580"
        BackColor="White" 
        BorderColor="#336666" 
        BorderStyle="Solid"
        BorderWidth="1px" 
        CellPadding="8" 
        
        AlternatingRowStyle-BackColor="#F1F1F1" 
        GridLines="Horizontal">