Составить запрос на основе выбранных значений в списке

Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click

    Zapros = "select * from таблица1 where таблица1.фамилия in (" & varStr & ")"
    Dim stDocName As String
    stDocName = "отчет2"
    DoCmd.OpenReport stDocName, acPreview
    
Exit_Кнопка3_Click:
    Exit Sub

Err_Кнопка3_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка3_Click
    
End Sub

Private Sub Список0_AfterUpdate()
  varStr = Null
  For Each varItem In Me.Список0.ItemsSelected
    varStr = varStr + ","
    varStr = varStr & "'" & Replace(Список0.Column(0, varItem), "'", "''") & "'"
  Next
End Sub