Problema con due DataReader

[spago]

Ciao ragazzi io ho una sub dove all'interno ci faccio due query, vi mostro subito il codice:

Private sub risorseCommessa()
	tmp = ""
	
	sql = "SELECT id_commesseRisorse, .... FROM tabella ...."
    
    Dim cmd AS New OleDbCommand(SQL, conn)
	Dim rs AS OleDbDataReader
								
	rs = cmd.ExecuteReader()
			
	do while rs.Read()		
		tmp = tmp & "<tr>"
		tmp = tmp & "<td>" & rs("codRisorsa") & "</td>"
		tmp = tmp & "<td>" & rs("codRuolo") & "</td>"
		tmp = tmp & "<td>" & formatDataITA(rs("dataInizio")) & "</td>"
		tmp = tmp & "<td>" & formatDataITA(rs("dataFine")) & "</td>"
		tmp = tmp & "<td>" & daOreAgiorni(rs("orePreviste")) & "</td>"
		
		sql = "SELECT ...." _
		      & " FROM DETTAGLIORISORSA" _
			  & " WHERE id_commesseRisorse=" & rs("commesseRisorse")
		
		Dim cmd1 As New OleDbCommand(sql, conn)		
		Dim rs1 AS OleDbDataReader									
		rs1 = cmd1.ExecuteReader()
		
		rs1.Close()
		
		tmp = tmp & "</tr>"
	loop	
				
	rs.Close()	
	cmd = Nothing
	
	commesseRisorse.Text = tmp			
end sub

Praticamente avendo un DataReader all'interno del ciclo mi da errore dicendomi:

There is already an open DataReader associated with this Connection which must be closed first.

Come posso fare per risolvere questo problema ???