谁是高手帮帮忙

Question

给你说一下：
1、VB实现这个简单的功能有许多种方法（略）
2、介绍一个方法ADO连接方法：
　　　dim Cn as adodb.connection
      dim rs as adodb.recordset
      cn.connection="Provider=Microsoft.Jet.OLEDB.4.0;Data   source=D:\RoomM\DB\RoomM.mde;Persist Security Info=False"
      cn.open
      Cn.CursorLocation = adUseClient
set rs=cn.execute("select * from 表名 where 条件")
text1.text=rs("student_no").value
.................................
textn.text=rs("fieldn").value照葫芦画瓢,满意否？