求教：要将sql查询到的某个字段的值显示到文本框里该怎么做？

[foxman]

比如：select kh_mc from kh where kh_khid='0000001'
将该记录的kh_mc的字段值显示到文本框里该怎么做？

[of123]

text1 = rs.fields("kh_mc ")

[yassee]

dim rs as new adodb.Recordset
rs.open "select kh_mc from kh where kh_khid='0000001'",cn
text1.text=rs!kh_mc
rs.close
set rs=nothing
^_~

[online]

strsql = "select kh_mc from kh where kh_khid='0000001'"
Set rs = New ADODB.Recordset
rs.Open strsql, conn, 1, 3
Text1.Text =rs.Fields("kh_mc")