VB程序的问题

在vb中如何将从数据库中查找到得数据显示在label控件上，比如：Ft = "select pname from sole1 where pno='" & Text1.Text & "'"，然后将Ft这个值显示到Label2.Caption上，作为信息显示出来。请大侠指点下这个程序应该怎么写。 --------------------编程问答--------------------

if rs.state<>adstateclosed then rs.close

rs.open "select pname from sole1 where pno='"& text1.text &"'",conn,adopenkeyset,adlockreadonly

if rs.recordcount>0 then

    label2.caption=rs!pname &""

    label2.refresh

end if

rs.close

--------------------编程问答-------------------- conn,adopenkeyset,adlockreadonly  这些东西需不需要自己定义呀？
--------------------编程问答-------------------- 我好像明白一点啦！谢啦！ --------------------编程问答--------------------

引用 2 楼 yule2048 的回复:

conn,adopenkeyset,adlockreadonly  这些东西需不需要自己定义呀？

    Dim conn As new ADODB.Connection
    Dim rs As new ADODB.Recordset
adopenkeyset,adlockreadonly 这2个是固定写法，不需要再定义

补充：VB ,  数据库(包含打印，安装，报表)