Function PrintReports()
Dim sql As String
Dim db As Database
Dim rs As Recordset
sql = "SELECT AFO_NAME FROM AFO_CODES"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
Do Until rs.EOF
DoCmd.OpenReport "Rpts_by_AFO", acViewPreview, , "[AFO_Name]='" & rs![AFO_NAME] & "'"...