Have you tried stepping through your code in debug mode? This could help you determine if your for loop is actually looping through all the records. From what I see, here is my analysis.
You state the text box is populated with the data from the first record. This tells me your app is leaving the for loop after the first record. As your loop is written, I would expect to see the data from the last record in the text box. In order to build a list, you would need to construct your loop in a manner similar to the following:
Code:
Do Until myRS2.EOF
If empCounter = 0 then
txtWorkHrs = "Project" & myRS2("PNO") & "-" & myRS2("HOURS") & "Hours"
Else
txtWorkHrs = txtWorkHrs & Chr(10) & "Project" & myRS2("PNO") & "-" & myRS2
End If
empCounter = empCounter + 1
myRS2.MoveNext
Loop
HTH
Darrell L. Embrey