I think I found it.
Code:
Private Sub List122_AfterUpdate()
Me.List187.RowSource = "SELECT qryObjectiveList.GoalObjectiveID, [ObjectiveLetterNumber] & " - " & [Objective] AS O, qryObjectiveList.ObjectiveID, qryObjectiveList.SortNr FROM qryObjectiveList WHERE qryObjectiveList.[GoalObjectiveID] in(" & getLBX(List122, 0) & ")"
End Sub
Need to change to single quotes
Code:
Private Sub List122_AfterUpdate()
Me.List187.RowSource = "SELECT qryObjectiveList.GoalObjectiveID, [ObjectiveLetterNumber] & ' - ' & [Objective] AS O, qryObjectiveList.ObjectiveID, qryObjectiveList.SortNr FROM qryObjectiveList WHERE qryObjectiveList.[GoalObjectiveID] in(" & getLBX(List122, 0) & ")"
End Sub