sqlpart = "Select * From Participantes Where codmonit = " _
& LstMonit.SelectedItem.Text & " Order by nomepart"
Set rspart = db.OpenRecordset(sqlpart)
Do Until rspart.EOF
sqlcarne = "Select * From Carnes Where pagto Like 'XXX' And _
codpart = " & rspart("codpart") & " Order By numerocarne, parcela"
Set rscarne = db.OpenRecordset(sqlcarne)
Do until rscarne.EOF
sqlnocarne = "Select * From Carnes Where numerocarne Like '” _
& rscarne(“numerocarne”) & “' Order By numerocarne "
Set rsnocarne = db.OpenRecordset(sqlnocarne)
Print #1, Tab(1); Format(rsnocarne("numerocarne"), "0000"); Tab(15); rspart("nomepart"); Tab(70); rsnocarne("parcela")
Do Until rsnocarne.EOF
Print #1,Tab(70); rsnocarne("parcela")
rsnocarne.MoveNext
Loop
Rscarne.Movenext
Loop
Print #1, Tab(0); ""
rspart.MoveNext
Loop
veja se resolve
