<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
<font color=#000099>Dim</font> DB <font color=#000099>As</font> Database
<font color=#000099>Dim</font> Rs <font color=#000099>As</font> Recordset
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> Form_Load()
  <font color=#000099>Dim</font> SQL <font color=#000099>As</font> <font _
    color=#000099>String</font>
 
  <font color=green>' Datenbank öffnen</font>
  <font color=#000099>Set</font> DB = DBEngine.OpenDatabase("DeineMDB.mdb")
 
  <font color=green>' Alle Adressen alphabetisch</font>
  SQL = "SELECT * FROM Adressen ORDER BY Name"
  <font color=#000099>Set</font> Rs = DB.OpenRecordset(SQL)
 
  <font color=green>' Und ab in die ListBox</font>
  List1.Clear
  <font color=#000099>If</font> Rs.RecordCount > 0 <font _
    color=#000099>Then</font>
    <font color=#000099>Do</font> <font color=#000099>Until</font> Rs.EOF
      List1.AddItem Rs!Name
      List1.ItemData(List1.ListCount - 1) = Rs!ID
      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> Form_Unload( _
  Cancel <font color=#000099>As</font> <font color=#000099>Integer</font>)
  <font color=green>' Datenbank schliessen</font>
  <font color=#000099>On</font> <font color=#000099>Error</font> Resume <font _
    color=#000099>Next</font>
  Rs.<font color=#000099>Close</font>
  DB.<font color=#000099>Close</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>' Datensatz suchen</font>
  <font color=#000099>Dim</font> ID <font color=#000099>As</font> <font _
    color=#000099>Long</font>
 
  <font color=#000099>If</font> List1.ListIndex >= 0 <font _
    color=#000099>Then</font>
    ID = List1.ItemData(List1.ListIndex)
    Rs.FindFirst "ID = " & <font color=#000099>CStr</font>(ID)
 
    txtVorname.Text = Rs!Vorname
    txtStrasse.Text = Rs!Strasse
    'usw.
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>