this should do it..
if you aren't moving you get only one, the first.
Code:
txtsearch.txt 

Set RS = DB.OpenRecordset("SELECT * FROM Main WHERE _ ReportNum = '" & txtsearch.txt & "'", dbOpenDynaset) 
   rs.refresh
   rs.movefirst

 While not RS.eof
    List1.AddItem (RS!Place) 
    RS.movenext
 Wend
    RS.Close 
       Set RS = Nothing
End Sub