Private Sub List3_Click()
Set DB = DBEngine.OpenDatabase(App.Path & "\Musik.mdb")
List1.Clear
List5.Clear
List4.Clear
List2.Clear
 If Option2.Value Then
Set RsInterpret = DB.OpenRecordset("SELECT Distinct Interpret FROM Interpret," & _
  "Musikart WHERE Musikart = '" & List3.Text & "'", dbOpenDynaset)
ElseIf Option3 Then
…………..
End if
End Sub