I'm not sure if I understand what you want to do... is the following code close??
Code:
Private Sub Command433_Click()
Dim varItem As Variant
Dim strWhere As String
Dim sSQL As String
For Each varItem In Me![multitopic].ItemsSelected
strWhere = strWhere & "Topic =" _
& Chr(39) & Me![multitopic].Column(0, varItem) & Chr(39) & " Or "
Next varItem
strWhere = Left(strWhere, Len(strWhere) - 4) 'Remove the last " Or "
DoCmd.OpenForm "RFPDatabase", , , strWhere
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'default row source for list box
sSQL = "SELECT topiclinkedlist.ID, topiclinkedlist.group, topiclinkedlist.topic, topiclinkedlist.question"
sSQL = sSQL & " FROM topiclinkedlist"
'add the where clause, if available
If Len(Trim(strWhere)) > 0 Then
sSQL = sSQL & " WHERE " & strWhere
End If
sSQL = sSQL & ";"
'this sets the row source for a list box 'lstTopic2'
' on form "RFPDatabase"
Forms!RFPDatabase.lstTopic2.RowSource = sSQL
End Sub