First, bind a data control with the listbox. When you’ve bound a listbox control to a field within a recordset, the control will display the value in the field only when there is an existing entry in the control which matches the value in the bound field. You can change the value of the field on a particular record by selecting another entry in the control and moving off of the record.
Db_Member.DatabaseName = "Member.mdb"Db_Member.RecordSource = "Select DISTINCT hobbies from Member"Db_Member.RefreshLst_Hobbies.DataSource="Db_Member"Lst_Hobbies.DataField = "hobbies"