Private Sub Bearbeiten()
lstDarstH.Clear
lstMediumH.Clear
 
Set rsFilm = New ADODB.Recordset
rsFilm.Open ("Select Film_ID, Film,Teil from Film where Film_ID = " & txtFilmID _
  & ""), oConn, adOpenStatic, adLockOptimistic
 
        txtFilm = rsFilm!Film
        txtTeil = rsFilm!Teil
 
Set rsDetail = New ADODB.Recordset
rsDetail.Open ("Select Film_ID,Jahr,FSK,Laenge,Art,Land from Details where" & _
  "Film_ID = " & txtFilmID & ""), oConn, adOpenStatic, adLockOptimistic
 
        txtJahr = rsDetail!Jahr
        txtFSK = rsDetail!FSK
        cmbGenre.Text = rsDetail!Art
        txtLand = rsDetail!Land
        txtLaenge = rsDetail!Laenge
 
Set rsFilmDarst = New ADODB.Recordset
rsFilmDarst.Open ("Select Film_ID, Darsteller,ID from FilmDarst where Film_ID =" & _
  "" & txtFilmID & ""), oConn, adOpenKeyset, adLockOptimistic
 
Do While Not rsFilmDarst.EOF
         lstDarstH.AddItem rsFilmDarst!Darsteller
         rsFilmDarst.MoveNext
Loop
 
If lstDarstH.ListIndex > -1 Then
     For i = 0 To lstDarstH.ListCount - 1
     lstDarstH.ListIndex = i
     lstDarstH.Selected(i) = True
  Next i
 End If
'SO HIER IST MEIN PROB!!! NACH DEM ANFÜGEN DER DATEN AN EINER LISTBOX SOLLEN 
' DIESE GELÖSCHT    WERDEN! UND DORT BEKOMME ICH IMMER FEHLERMELDUNGEN!
Do While Not rsFilmDarst.EOF
     rsFilmDarst.Delete adAffectCurrent
     rsFilmDarst.MoveNext
     rsFilmDarst.Update
Loop
End Sub