[VB.NET]Creare una dropdown dinamicamente

[Aki]

ciao raga
ho una tabella così (su sql server):

id - utenti
 1 - pippo
 2 - pluto
 3 - aki

e vorrei inserire dinamicamente i dati in una dropdownlist;
avevo fatto così:

sub page_load()
        Dim conn As New SqlConnection(strc) 
        'strc è una costante
	conn.Open 	
	Dim sql As String = "select * from cats"
	Dim cmd as new sqlcommand(sql, conn)
	dim dr as sqldatareader = cmd.ExecuteReader()
	dim arr as new arraylist
	do while dr.read()
		arr.add(dr.item(0))
	loop
	cat.datasource = arr
	cat.databind()
	conn.close
end sub

ma così, vedendo il sorgente html, crea una select così:

<select name="cat" id="cat">
   <option value="1">1</option>
</select>

ma io la voglio con l'id della tabella come value ed il relativo nome come text così:

<select name="cat" id="cat">
   <option value="1">Pippo</option>
</select>

come faccio?

[zampa28]

sub page_load()
Dim conn As New SqlConnection(strc)
'strc è una costante
conn.Open
Dim sql As String = "select * from cats"
Dim cmd as new sqlcommand(sql, conn)
dim dr as sqldatareader = cmd.ExecuteReader()
do while dr.read()
cat.items.add(new listitem(dr.item(1),dr.item(0)))
loop
conn.close
end sub

[Aki]

Originariamente inviato da zampa28
sub page_load()
Dim conn As New SqlConnection(strc)
'strc è una costante
conn.Open
Dim sql As String = "select * from cats"
Dim cmd as new sqlcommand(sql, conn)
dim dr as sqldatareader = cmd.ExecuteReader()
do while dr.read()
cat.items.add(new listitem(dr.item(1),dr.item(0)))
loop
conn.close
end sub

Grazie mille