Hallo all,
I have a delphi application that uses msAccess and DAO to connect to it.

I have created a procedure that creates a new user using DAO:

var dWorkspace : DAOWorkspace;
var dUser : DAOUser;
Begin
dWorkspace := JetEngine.Workspaces.Item[0] ;
dUser := dWorkspace.CreateUser(userName,userName,userName);
dWorkspace.Users.Append (dUser);
dUser.Free;
dWorkspace.Free;
JetEngine.FreeLocks;
end;


This works fine.

Then I need to make a procedure that will add an existing group to that
user.
I have made the following but it doesnt work (returns the error:
"EDAOError ;DAODynaCollection.Append failed" at the line:
groups.Append (dGroup); )

var dWorkspace : DAOWorkspace;
var dUser : DAOUser;
var groupname : string;
Begin
groupname := 'existinggroupname';
dWorkspace := JetEngine.Workspaces.Item[0] ;
dGroup := dWorkspace.Groups[groupname];

with dWorkspace.Users[username] do begin
groups.Append (dGroup);
Free;
end;
dGroup.Free;
dWorkspace.Free;
JetEngine.FreeLocks;
end;


Has anyone any ideas of how you add a group to a user using DAO?

Thanks
Koyan