open DataReader

Hej Eksperter

While myReader.Read()
    oRs = ("SELECT * FROM ProjectFolders WHERE PID = " & myReader("ID") & " AND ProjectID = " & ID)
    ADP = New SqlDataAdapter(oRs, MyConnection)
    DS = new DataSet("ProjectFolders")
    temp = ADP.Fill(DS,"ProjectFolders")

    'osv

End While

Jeg får denne fejlmeddelelse:
There is already an open DataReader associated with this Connection which must be closed first.

i denne linie:
temp = ADP.Fill(DS,"ProjectFolders")


Jeg har prøvet ADP.close og andre ting men uden held.
Hvad gør jeg forkert?