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