KDAO - ALGUÉM SABE

Preciso trocar o [b:91c9f58e1d]UserName Padrão exemplo ´Admin´[/b:91c9f58e1d] para o nome do Usuário que esta [b:91c9f58e1d]conectado no Windows [/b:91c9f58e1d]então utilizei a função LogUserWin , mas não funcionou....

É q. todos os usuários da Rede estão como ´Admin´..... e eu preciso saber o nome de cada usuário que esta na REDE.....

Alguém sabe como resolver isto por favo ajudem.,.....

=========================================

[b:91c9f58e1d]DB.Connected:=False;
DB.Database:=´\\Martins\Dados\DBBase.mdb´;
DB.UserName:= ´Admin´; ----------------> LogUserWin troquei mas não funcionou..
DB.Connected:=True; [/b:91c9f58e1d]

=========================================
function LogUserWin : String;
var
Registro: TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
if Registro.OpenKey(´Network\Logon´, false) then
begin
Result := Registro.ReadString(´username´);
end;
Registro.Free;
end;