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
    frmFilm.List1.ItemData(frmFilm.List1.NewIndex) = rsDetails!Film_ID
    rsDetail.MoveNext
  Loop
End Sub

Private Sub List1_Click()
  If List1.ListIndex >=0 Then
    txtFilmID = List1.ItemData(List1.ListIndex)
    ...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de