利用OLE Automation 存取 ACCESS 資料庫的範例:
------------------------------------------
   Variant MsAccess, db, rs;

   // 如果是 Access 95 的話用 "DAO.DBEngine"
   MsAccess = CreateOleObject("DAO.DBEngine.35");
   db = V.OleFunction("OpenDatabase", "c:\\ipj\\paaj98\\paaj0.mdb");
   rs = v1.OleFunction("OpenRecordset", "tbDistrito");
   ListBox1->Items->Clear();
   while (!(int)rs.OlePropertyGet("EOF"))
   {
        ListBox1->Items->Add(rs.OlePropertyGet("Fields", "Distrito"));
        rs.OleProcedure("MoveNext");
   }
   rs.OleProcedure("Close");
   MsAccess = db = rs = Unassigned;

----------------------------------------------