dim conn as sqlconnection=new sqlconnection(你的连接数据库的字符串)
dim rs as sqldatareader
dim cmd as sqlcommand=new sqlcommand("select * from f_bbs where id=1",conn)
conn.open
rs=cmd.executereader
if rs.read then
textbox1.text=rs("f_name").tostring
end if
rs.close
cmd.dispose
conn.close
SqlConnection conn = new SqlConnection("server=localhost;uid=sa;pwd=;database=db");
SqlDataAdapter da = new SqlDataAdapter("select * from f_bbs where id=1",conn);
DataSet ds = new DataSet();
da.Fill(ds);
f_name.Text = ds.Tables[0].Rows[0]["f_name"].ToString();