You could probably benefit from studying the Access Help Files, looking at 'MultiSelect property' and 'ItemsSelected collection' (particularly the examples).
Look at the properties of your list box. Set the Multi Select property (Others tab) to Extended. This will allow you to hold down the Control key and randomly select items. If you want an uninterrupted block of items, select the first item, then hold down the Shift key and click on the last item of the group.
You'll need a command button which you'll click when you're satisfied with your selections. Code for the OnClick event could begin something like this:
Private Sub Command4_Click()
Dim Q As QueryDef, db As Database
Dim Criteria As String, strSQL as String
Dim ctl As Control
Dim Itm As Variant
' Build a list of the selections.
Set ctl = Me![List0]
'the following routine builds a comma-delimited string of items selected, e.g., if SSN is the bound 'column, then Criteria might end up looking like this: "122321312, '333333333, 333333332"
For Each Itm In ctl.ItemsSelected
If Len(Criteria) = 0 Then
Criteria = ctl.ItemData(Itm)
Else
Criteria = Criteria & ", " & ctl.ItemData(Itm)
End If
Next Itm
'**********
'Now, you've got to do something with the Criteria string. In your example, you want to append 'it to a table, so you need to build an append query. Say for example that tblClients is your 'record source, and you want to append the selected clients to tblSelected. The OnClick code 'might continue:
'**********
'build SQL for an append query
strSQL = "INSERT INTO tblSelected SELECT * FROM tblClients Where [SSN] In(" & Criteria & "
;"
'Finally, you need to run the query:
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub
