Ersteinmal ein Hallo an alle
 
Naja die Überschrift erklärt so genau mein Problem leider nicht.
Ich muß erst mal ausholen was genau ich machen will.Ich habe
In Acces 2000 eine Filmdatenbank mit folgenen Spalten:
Filmname _
  FormatCDsArtBeschreibungHauptdarsteller&#6166_
  4;FilmId
In List1 lasse ich mir die Anfangsbuchstaben ausgeben
 
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, _
    (Screen.Height - Me.Height) / 2
Me.AutoRedraw = True
PaintForm Me, 0, 115, 149, 203, 2, 1, -1
Dim a As Byte
List1.AddItem "0-9"
For a = 65 To 90
List1.AddItem Chr(a)
Next a
End Sub
Wenn ich einen Buchstaben anklicke werden mir in List2 alle Filme  filme mit _
  dem entsprechenden Anfangsbuchstaben angezeigt soweit so gut
Jetzt möchte ich aber auch nach Schauspieler suchen dazu habe ich in ein Fram _
zwei Optionsfelder eingefügt so das ich entweder nach Filme suchen kann oder _
nach Schauspieler
 
Private Sub Option1_Click()
Option1 = True
Option2 = 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 List1_Click()
Dim db As Database, rs As Recordset
Set db = DBEngine.OpenDatabase(App.Path & "\Filme.mdb ", True)
 
If List1 <> "0-9" Then
 
Set rs = db.OpenRecordset("SELECT Filmname FROM Filme WHERE Filmname LIKE '" & _
  List1 & "*' ORDER BY Filmname", dbOpenDynaset)
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
 
 
Private Sub Option2_Click()
Option1 = False
Option2 = True
Option3 = False
List1.Clear
List1.AddItem "Robert De Niro"
 
End Sub
 
So nun zu meinen Fragen
Gibt es eine einfachere Möglichkeit als alle Schauspieler mit“ AddItem „ _
  einzufügen?
Und 2. Wie müste der Code aussehen um alle Filme eines entsprechenden _
Schauspieler in List2 anzuzeigen
P.s. Meine Datenbank läuft in VB6 unter DAO
Mit freundlichen Grüßen Big Boy