求DAO或ADO筛选代码

用一个SQL语句一个记录集就能遍历记录或者使用SQL语句新建个查询就能筛选出记录，不需要分两个记录集处理。

Dim  strSQL as string
Dim rst As DAO.Recordset
strSQL = "select 表1.区县,表1.道路名称 from 表1 inner join 表2 on 表1.区县 = 表2.区县"     'SQL语句
Set rst = CurrentDb.OpenRecordset(strSQL)
Do While Not rst.EOF
    debug.print rst("区县") &"-"& rst("道路名称")   '打印记录
    rst.MoveNext
    Loop
rst.Close
Set rst = Nothing