Dim cn As new ADODB.Connection
dim rs as new adodb.recordset
sql = "SELECT DGZY.usename FROM DGZY WHERE DGZY.usename Like '张三'"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=123.mdb"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
do while not rs.eof
...
rs.movenext
loop