在form1中增加datagrid1,ado控件1,
'连接语句自己写
cmd.cmdtext="select * from 表 where 姓名='" & form.text.text & "'"
set rs=cmd.excute
set datagrid1.datasoure=rs