在form1中增加datagrid1,ado控件1,
'连接语句自己写
cmd.cmdtext="select * from 表 where 姓名='" & form.text.text & "'"
set rs=cmd.excute
set datagrid1.datasoure=rs
'连接语句自己写
cmd.cmdtext="select * from 表 where 姓名='" & form.text.text & "'"
set rs=cmd.excute
set datagrid1.datasoure=rs
在form中把不需要显示的字段隐藏,在点击按钮的事件中用rs.MoveNext即可按顺序显示。