public sub connection()dim cn as new adodb.connection dim rs as new adodb.recordset dim sqlstr as stringcn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=test.mdb;pers**t security **=false" cn.open sqlstr = ""select * from query where name like" & "%" &你的条件&"%"rs.open sqlstr, cn, sqlstr,adopenstatic, adlockpessim**tic debug.print rs.fields(0)end sub 20210311