恳请各位帮帮忙,在ACCESS中做了一个模糊查询,数据库中没有问题,在VB里调用时查不到

yrwbc

数据库中的查询:

select teacherinfo.duty, teacherinfo.teachername, teacherinfo.teacherintro, teacherinfo.teacherfunction, teacherinfo.photopath
from teacherinfo
where (((teacherinfo.teachername) like "*" & [] & "*"));

vb中的调用:

public function inquires(byval introduction as string) as recordset
dim parnum as integer
    cmd.commandtype = adcmdtable
    set prm = cmd.createparameter(, advarchar, adparaminput, 60, introduction)
    prm.type = advarchar
    prm.direction = adparaminput
    parnum = len(introduction)
    prm.size = parnum
    cmd.parameters.append prm
   
    set cmd.activeconnection = cnn1
    set inquires = cmd.execute()
end function

各位帮帮忙啊,先谢谢!!!!!!!!!!