vb编程！做了一个查询，请问怎么编程？

来源：百度知道 编辑：UC知道 时间：2024/05/29 10:03:50
有一个采购单信息查询界面，
请问查询按钮怎么编程啊？
小妹不才，请各位大侠相助！！
http://tieba.baidu.com/f?kz=523854212
这个里面有图的

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password = 111;Data Source=" & App.Path & "\1.mdb" '1.mdb 替换成你的数据库
cn.Open
rs.Open "select * from 表1 where 查询条件 ", cn, adOpenStatic, adLockOptimistic
do while not rs.eof
'这里编程输出查询结果
rs.MoveNext
loop
rs.Close

'上面就是查询的整个过程，你修改一下查询语句，然后用mshflexgrid显示出来就可以了