[求助]为什么我显示不了查询结果？

狼书生

代码如下：

Private sub 查询01_Click

dim rs As New ADODB.Recordset

set rs = currentproject.connection.Execute("select * From ZZ_供应商列表 where 公司名称 Like '%"& Forms![ZZ_供应商列表]![Textgys查询关键字].value &"%'")

end sub

是不是我这样写的代码不会返回查询结果的啊？

要怎么样才能有查询结果显示？

麻烦各位大大说下！3Q！[em01][em01][em01]

[此贴子已经被作者于2006-8-8 11:34:07编辑过]

黄林

不行啊！

狼书生

不行啊！提示“对象带开时，操作不被允许！”

怎么回事？[em03]

wuaza

dim rs As New ADODB.Recordset
rs.open currentproject.connection,"select * From ZZ_供应商列表 where 公司名称 Like '%"& Forms![ZZ_供应商列表]![Textgys查询关键字].value &"%'"