<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
<font color=#000099>Private</font> db <font color=#000099>As</font> Database
<font color=#000099>Private</font> dbFile <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> Form_Load()
  <font color=green>' Datenbank öffnen</font>
  dbFile = "F:Dokumente und EinstellungenMisterEigene DateienVBmeine" & _
    "FilmeFilme.mdb"
  <font color=#000099>Set</font> db = DBEngine.OpenDatabase(dbFile, <font _
  color=#000099>True</font>)
 
  <font color=green>' List1 füllen</font>
  ...
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> Form_Unload( _
  Cancel <font color=#000099>As</font> <font color=#000099>Integer</font>)
  <font color=green>' Datenbank schließen</font>
  db.<font color=#000099>Close</font>
  <font color=#000099>Set</font> db = <font color=#000099>Nothing</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> List1_Click()
  <font color=green>' Alle Treffer in List2 anzeigen</font>
  <font color=#000099>Dim</font> Rs <font color=#000099>As</font> Recordset
  <font color=#000099>Dim</font> SQL <font color=#000099>As</font> <font _
    color=#000099>String</font>
 
  <font color=#000099>If</font> List2.ListIndex < 0 <font _
    color=#000099>Then</font> <font color=#000099>Exit</font> <font _
    color=#000099>Sub</font>
 
  <font color=#000099>If</font> List1.Text <> "0-9" <font _
    color=#000099>Then</font>
    SQL = "SELECT Film_id, Filmname FROM Filme WHERE " & _
      "Filmname LIKE '" & List1.Text & "*' ORDER BY Filmname"
  <font color=#000099>Else</font>
    SQL = "SELECT Film_id, Filmname FROM Filme ORDER BY Filmname"
  <font color=#000099>End</font> <font color=#000099>If</font>
 
  List2.Clear
  <font color=#000099>Set</font> Rs = db.OpenRecordset(SQL, dbOpenDynaset)
  <font color=#000099>If</font> Rs.RecordCount > 0 <font _
    color=#000099>Then</font>
    <font color=#000099>Do</font> <font color=#000099>While</font> <font _
    color=#000099>Not</font> Rs.EOF
      List2.AddItem Rs!Filmname
      List2.ItemData(List2.ListCount - 1) = Rs(0)
      Rs.MoveNext
    <font color=#000099>Loop</font>
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  List2_DblClick()
  <font color=green>' Film anhand Film_Id suchen</font>
  <font color=#000099>Dim</font> Rs <font color=#000099>As</font> Recordset
  <font color=#000099>Dim</font> SQL <font color=#000099>As</font> <font _
    color=#000099>String</font>
 
  <font color=#000099>If</font> List2.ListIndex > -1 <font _
    color=#000099>Then</font>
    SQL = "SELECT * FROM Filme WHERE Film_id = " & _
      <font color=#000099>CStr</font>(List2.ItemData(List2.ListIndex))
 
    <font color=#000099>Set</font> Rs = db.OpenRecordset(SQL)
 
    <font color=green>' Das Recordset enthält jetzt genau einen 
    ' Datensatz:</font>
    <font color=green>' Und zwar den, der in List2 doppelt angeklickt 
    ' wurde</font>
 
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>