void TfrmMain::ExportData(Variant oDatabase)
{
  Variant oBulkCopy  = Variant::CreateObject( "SQLDMO.BulkCopy" );

       Variant oTableDest = oDatabase.Exec(PropertyGet( "Tables" 
                             )).Exec(Function( "Item" )<< tName);
        oBulkCopy.Exec(PropertySet( "DataFilePath" ) <<
        frmConnection->DirectoryEdit->Text +
         "\\"  + tName +  ".bcp" );
//        oBulkCopy.Exec(Procedure( "SetCodePage" ) << - 1 ); //SQLDMOBCP_ACP //Andrew
        oBulkCopy.Exec(Procedure( "SetCodePage" ) <<  0 ); //SQLDMOBCP_ACP //Andrew
        oBulkCopy.Exec(PropertySet( "DataFileType" ) <<  1 ); //SQLDMODataFile_CommaDelimitedChar; //Andrew
        oBulkCopy.Exec(PropertySet( "ExportWideChar" ) << True);                            //Andrew
        oBulkCopy.Exec(PropertySet( "LogFilePath" ) <<
//        oBulkCopy.Exec(PropertySet( "DataFileType" ) <<  4 );
        try{
        oTableDest.Exec(Function( "ExportData" )<< oBulkCopy);
        }catch(...){
        richEdit->Lines->Add(var->Values[ "msgExportErrors" ] + tName);}
  }

  oBulkCopy = Unassigned;
}