Public Sub openFilm()
Set rsDetail = New ADODB.Recordset
rsDetail.Open "Select Film_ID,Film,Teil,FSK,Laenge,Jahr,Art,Land from Details" & _
  "", oConn, adOpenStatic, adLockOptimistic
Set frmFilm.DatDetail.DataSource = rsDetail
rsDetail.Sort = "Film_ID"
Do While Not rsDetail.EOF
mFilmID = rsDetail!Film_ID
mFilmID = Format(mFilmID, "10000")
mFilm = rsDetail!Film
mZeile = mFilmID + Space(7 - Len(mFilmID)) + mFilm
frmFilm.List1.AddItem mZeile
rsDetail.MoveNext
Loop
End Sub

Private Sub List1_Click()
txtFilmID = List1
lstDarst.Clear
lstMedium.Clear
Darst
Medium
End Sub
 
Private Sub Darst()
Set rsFilmDarst = New ADODB.Recordset
rsFilmDarst.Open ("Select Film_ID, Name from FilmDarst where Filmdarst.Film_ID" & _
  "= " & txtFilmID & ""), oConn, adOpenStatic, adLockOptimistic
Do While Not rsFilmDarst.EOF
mDarst = rsFilmDarst!Name
lstDarst.AddItem mDarst
rsFilmDarst.MoveNext
Loop
If lstDarst.ListCount = 0 Then lstDarst.AddItem "Keinen Eintrag gefunden!"
End Sub
 
Private Sub Medium()
Set rsFilmMedium = New ADODB.Recordset
rsFilmMedium.Open "Select Film_ID,Medium from FilmMedium  where" & _
  "FilmMedium.Film_ID = " & txtFilmID & "", oConn, adOpenStatic, _
  adLockOptimistic
Do While Not rsFilmMedium.EOF
mMedium = rsFilmMedium!Medium
lstMedium.AddItem mMedium
rsFilmMedium.MoveNext
Loop
If lstMedium.ListCount = 0 Then lstMedium.AddItem "Kein Eintrag gefunden!"
End Sub