用VB模拟PB的数据窗口

[cqzd]

是这么回事,三个控件,TEXT1,ADODC1,DATAGRID1,其中后两个绑定,并且后两个控件的VISIBLE为FALSE,单击TEXT1时,DATAGRID1.VISIBLE=TRUE
TEXT1的CHANGE事件中:
On Error Resume Next
sql1 = "SELECT MC 设备名称,KS 科室,WZ 位置,YWM 音位码 FROM T_J_SBB WHERE YWM LIKE '" & UCase(txtMC) & "%'"
Adodc1.RecordSource = sql1
Adodc1.Refresh
现在想单击DATAGRID1上过滤出来的行,让该行的某个列的内容显示在TEXT1上,并且把DATAGRID1本身隐藏

以上功能其实就是模访PB的数据窗口.
哪位能帮做个例子
[e-mail]