Подскажите, кто-нибудь, почему я получаю следующую ошибку и как её избежать: Microsoft SQL-DMO: [SQL-DMO]This object is already in a collection.

SQLServer.LoginSecure = True
SQLServer.LoginTimeout = 10
SQLServer.Connect "(Local)"
Set SQLLogin = CreateObject("SQLDMO.Login")
Set BaseUser = CreateObject("SQLDMO.User")
SQLLogin.Name = "HTTP"
SQLLogin.Database = "HTTP"
SQLLogin.SetPassword "", LCase("HTTP")
SQLServer.Logins.Add SQLLogin
BaseUser.Name = "HTTP"
BaseUser.Login = "HTTP"
SQLServer.Databases("HTTP").Users.Add BaseUser
SQLServer.Databases("SES").Users.Add BaseUser
SQLServer.Databases("HTTP").DatabaseRoles("db_owner").AddMember "HTTP"
SQLServer.Databases("SES").DatabaseRoles("db_owner").AddMember "HTTP"
Set SQLLogin = Nothing
Set BaseUser = Nothing