Private Sub List1_Click() 
Dim db As Database, rs As Recordset 
Set db = DBEngine.OpenDatabase(App.Path & "\Filme.mdb ", True) 
 
If Option3.Value Then 
Set rs = db.OpenRecordset("SELECT Distinct Filmname FROM Filme WHERE ART = '" & _
  List1.Text & "'", dbOpenDynaset) 
Else 
Set rs = db.OpenRecordset("SELECT Distinct Filmname FROM Filme WHERE" & _
  "Hauptdarsteller = '" & List1.Text & "'", dbOpenDynaset) 
End If 
If Option2.Value Then 
Set rs = db.OpenRecordset("SELECT Distinct Filmname FROM Filme WHERE" & _
  "Hauptdarsteller = '" & List1.Text & "'", dbOpenDynaset) 
Else 
Set rs = db.OpenRecordset("SELECT Filmname FROM Filme WHERE Filmname LIKE '" & _
  List1 & "*' ORDER BY Filmname", dbOpenDynaset) 
End If 
If List1 <> "0-9" Then 
List2.Clear 
Do While Not rs.EOF 
List2.AddItem rs!Filmname 
rs.MoveNext 
Loop 
Else 
Set rs = db.OpenRecordset("SELECT Filmname FROM Filme ORDER BY Filmname", _
  dbOpenDynaset) 
List2.Clear 
Do While Not rs.EOF 
If IsNumeric(Left(rs!Filmname, 1)) Then List2.AddItem rs!Filmname 
rs.MoveNext 
Loop 
 
End If 
End Sub 
rivate Sub Option1_Click() 
Option1 = True 
Option2 = False 
Option3 = False 
List1.Clear 
Dim a As Byte 
List1.AddItem "0-9" 
For a = 65 To 90 
List1.AddItem Chr(a) 
Next a 
End Sub 
 
 
 
Private Sub Option2_Click() 
 
Option1 = False 
Option2 = True 
Option3 = False 
List1.Clear 
Dim db As Database, rs As Recordset 
Set db = DBEngine.OpenDatabase(App.Path & "\Filme.mdb ", True) 
 
Set rs = db.OpenRecordset("SELECT DISTINCT hauptdarsteller FROM Filme ORDER BY" & _
  "Hauptdarsteller", dbOpenDynaset) 
 
Do While Not rs.EOF 
List1.AddItem rs!Hauptdarsteller 
rs.MoveNext 
Loop 
End Sub 
 
 
 
 
Private Sub Option3_Click() 
Option1 = False 
Option2 = False 
Option3 = True 
List1.Clear 
 
Dim db As Database, rs As Recordset 
Set db = DBEngine.OpenDatabase(App.Path & "\Filme.mdb ", True) 
 
Set rs = db.OpenRecordset("SELECT DISTINCT Art FROM Filme ORDER BY Art", _
  dbOpenDynaset) 
Do While Not rs.EOF 
 
List1.AddItem rs!Art 
rs.MoveNext 
Loop 
End Sub