Join a WorkGroup programaticly ?

Is it possible to compact, encrypt and secure (.mdb) files with CompactDataBase method ?

 JetEng := CoJetEngine.Create;
  try
    JetEng.CompactDatabase(
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\OldFile.mdb',
    'Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Data Source=D:\NewFile.mdb;Password=xyz;'+'
    'User ID=NewUser;'+
    'Jet OLEDB:System database=C:\Secured.mdw;'+
    'Jet OLEDB:Encrypt Database=True');
  finally
    JetEng := nil;
  end;

The above code works to compact and encrypt the 'NewFile.mdb' however it doesn't appear to
  be password protected until the I have opened Access and joined it to the existing
workgoup.

Does anyone know how to join the workgroup programaticly ? I'm out of ideas.  

Any replies or ideas are most welcome.
-Rick