刚才有个问题还没有解决，望进一步能帮忙！！！！！！！！！
本人写的模糊查询，请各位帮我看看，为什么不能运行，还有其它的一些问题。谢谢

这是本人写的一段模糊查询的代码：但是运行不起来，请各位帮帮忙。
public sub command1_click()
Dim str As String
Dim adors As New Recordset
adors.ActiveConnection = ADOcn
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=book.mdb;Persist Security Info=False "
Adodc1.ConnectionString = str
Adodc1.RecordSource = "select * from 出版社资料 where like ' " & "* " + Text1.Text + "* " & " ' "
Adodc1.Refresh
end sub

还有一个问题：
在VB里，加了 一个窗体form1，再加一个窗体form2,在form1用form2.show调用form2，在form2的form_load事件中，
检测出不满足某种条件，要卸载form2,我用unload me可为什么会提示对象已加载。？
我在form2中写了一段public sub showme()内容如下，并在一个弹出菜单中调用FORM2，但是无法打开FORM2窗口。
CODE：
form2写一个public方法showme
publuc sub showme
if true then
unload me
exit sub
endif
me.show
end sub

在form1用form2.showme调用form2.
请高手把具体内容写上。。。

[解决办法]

"select * from 出版社资料 where like ' " & "* " + Text1.Text + "* "

where 和like 之间应该是字段名，你好像少了字段名了？

form_load事件中还要unload me？

Form1 调用 Fomr2 直接用 Form2.show 0 '(或1） 就行


[解决办法]
Adodc1.RecordSource = "select * from 出版社资料 where 字段名 like '% " & Text1.Text & "% ' "
Adodc1.Refresh

关于‘%’是SQL用的，相关的用法你可以去看下.