Variant objMDB; //ADOX物件
  Variant cnn;
  Variant tbl;      try
  {
    cnn = Variant::CreateObject("ADODB.Connection");
    objMDB = Variant::CreateObject("ADOX.Catalog");  //取得物件
    tbl = Variant::CreateObject("ADOX.Table");        cnn.OlePropertySet("Provider","Microsoft.Jet.OLEDB.4.0");
    cnn.OleFunction("Open","Data Source=ktop.mdb;");        objMDB.OlePropertySet("ActiveConnection",cnn);        tbl.OlePropertySet("ParentCatalog",objMDB);
    tbl.OlePropertySet("Name","link");
    tbl.OlePropertySet("Properties","Jet OLEDB:Link Datasource","temp.mdb");
    tbl.OlePropertySet("Properties","Jet OLEDB:Remote Table Name",tbname.c_str());
    tbl.OlePropertySet("Properties","Jet OLEDB:Create Link",true);        objMDB.OlePropertyGet("Tables").OleProcedure("Append",tbl);
  }
  __finally
  {
     cnn = Unassigned;
     objMDB = Unassigned;
     tbl = Unassigned;
  }