Private Sub Form_Load()
  Dim db As Database
  Dim rs As Recordset
  Set db = CreateDatabase("c:/csci/avb/myDAO.mdb", dbLangGeneral)
  db.Execute "create table contact(ID integer,  LName varchar,  FName varChar,  Relationship varChar,  HomeID integer)"
  db.Execute "insert into contact values (1,'Harris', 'Andy', 'me', 1)"
  db.Execute "insert into contact values (2,'Harris', 'Heather', 'wife', 1)"
  db.Execute "insert into contact values (3,'Harris', 'Elizabeth', 'daughter', 1)"
  db.Execute "insert into contact values (4,'Harris', 'Matthew', 'son', 1)"
  db.Execute "insert into contact values (5,'Moon', 'Judy', 'Mother in law', 2)"
  db.Execute "insert into contact values (6,'Moon', 'Chris', 'Brother in law', 2)"
  Set rs = db.OpenRecordset("contact", dbOpenTable)
  rs.MoveFirst
  Do While Not rs.EOF
    lstOut.AddItem (rs.Fields("FName"))
    rs.MoveNext
  Loop
  rs.MoveFirst
  
  
End Sub