Populate List Box with search results.

[Skinsella]

What I have is a form with a text box that is used as a search screen. At run time the user can type something into the box and then press a button, which brings up a pop up screen displaying a Listbox which I need to be populated with the search results. Below is what I've got so far but for some reason only the first result found is displayed, but there should be at least 5 records for each employee.


Dim LT As String
Dim ST As String
LT = Form1.txtSearch.Text
ST = "SELECT * FROM TblSEF WHERE EmployeeName = '" & LT & "'"
DataEnvironment1.rsTblSEF.Open (ST)
Do Until DataEnvironment1.rsTblSEF.EOF
List2.AddItem DataEnvironment1.rsTblSEF("BusCity&quot
DataEnvironment1.rsTblSEF.MoveNext

Exit Do
Loop
DataEnvironment1.rsTblSEF.Close

 

[JohnYingling]

Take out the Exit do

Exit Do
    Loop

http://WWW.VBCompare.Com

 

[Skinsella]

Hey John thanks for that. I feel like a right idiot, lol. Still pretty new at this game and learnign on my feet. Anyway thanks again, much appreciated.