Forms and Programming in VB

[Alvin]

Here is one approach...

Dim db As Database, rs As Recordset
Set db = CurrentDb()
Dim SQL$, Result$
SQL$ = "SELECT someField FROM someTable " _
& " WHERE someCondition"
Set rs = db.OpenRecordset(SQL$, dbOpenSnapshot)
Results$ = ""
While Not rs.EOF
Results$ = Results$ & rs(0) & ";"
rs.MoveNext
Wend
rs.Close
lstResults.RowSourceType = "Value List"
lstResults.RowSource = Results$
lstResults.ReQuery