dim con as sqlconnection

con=new sqlconnection("server=visuall;database=urdbname;uid=sa;password=urpassword")

con.open()

dimquerycommand as sqlcommand

dim reader as sqldatareader

reader=querycommand.executereader()

while(reader.reader())

listbox1.items.add(reader(0).tostring() & " " & reader(1).tostring() )

end while