----------------Export---------------------------------
 
  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_RAW
        oBulkCopy.Exec(PropertySet( "LogFilePath" ) <<
        frmConnection->DirectoryEdit->Text +
         "\\"  + tName +  ".log" );
        oBulkCopy.Exec(PropertySet( "DataFileType" ) <<  4 );
        oTableDest.Exec(Function( "ExportData" )<< oBulkCopy);
 -----------------Import-----------------------------------
 
  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_RAW //Andrew
        oBulkCopy.Exec(PropertySet( "LogFilePath" ) <<
        frmConnection->DirectoryEdit->Text +
         "\\"  + tName +  ".log" );
        oBulkCopy.Exec(PropertySet( "DataFileType" ) <<  4 );
        oDatabase.Exec(Procedure( "ExecuteImmediate" ) <<
                                "delete from ["  + tName +  "]" );
        oTableDest.Exec(Function( "ImportData" )<< oBulkCopy);