cmd.commandtext="select qq FROM 表名 where 条件"
cmd.connection=conn
conn.open
dim dr as sqldatareader
dr=cmd.executedatareader()
if dr.read() then
   textbox.text=dr.items("qq")
end if
dr.close
conn.close