HELP !!!!!!!!!!

[ferreiramarques]

I'm using the following code to connect to an AS400. Everything works fine except when I need to login with a different userID. How can I force a signon when userID is different ?



Function test(database)
Set as400 = Nothing
as400.Define UCase(as400systems.DefaultSystem)
Set pgm.system = as400
If database <> &quot;XXX&quot; Then
pgm.system.UserID = UserName & &quot;Y&quot;
Else
pgm.system.UserID = UserName
End If
as400.Signon

End Function