dim cnn as new sqlconnection("server=(local);database=你的数据库";uid=sa;pwd=;)
dim dr as new sqldatareader
dim cmd as new sqlcommand
cnn.open
cmd.connection=cnn
cmd.commandtext=""
dr=cmd.commandreader
while dr.read
comboboc1.item.add(dr.item(0))
end while
dr.close
cnn.close