"Login failed for user" error message when a user who does not have administrative credentials tries to gain access to an MSDE instance (822502)

WORKAROUND

1. Log on to the computer that is running the MSDE instance of Visual Studio 2005 or Visual Studio .NET. Log on as Administrator or as any other Windows user who has administrative credentials.
2. Start Visual Studio 2005 or Visual Studio .NET.
3. On the File menu, point to New, and then click Project.
   
   The New Project dialog box appears.
4. Under Project Types, click Visual Basic Projects.
   
   Note In Visual Studio 2005, click Visual Basic in Project Types.
5. Under Templates, click Windows Application, and then click OK. By default, Form1.vb is created.
6. On View menu, click Code.
7. Paste the following code as the first line in Form1.vb:

   Imports System.Data.SqlClient

8. Paste the following code in the class definition of Form1 in Form1.vb:

       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           ' Grant logon rights.
           RunProc("<Computer Name>", "master", "sp_grantlogin", "@loginame", "<Domain Name>\<User Name>")
   
           ' Add the user account to the System Administrators Group.
           RunProc("<Computer Name>", "master", "sp_addsrvrolemember", "@rolename", "sysadmin", "@loginame", _
   "<Domain Name>\<User Name>")
       End Sub
   
       Private Sub RunProc(ByVal HostName As String, ByVal DbName As String, ByVal CmdName As String, ByVal Param1Name _
    As String, ByVal Param1Value As Object, Optional ByVal Param2Name As String = vbNullString, Optional ByVal Param2Value _
    As Object = Nothing)
           Dim cn As New SqlConnection("Data Source=" & HostName & "\vsdotnet;Database=" & DbName &  _ 
   "; Integrated Security=True")
           Dim cmd As New SqlCommand(CmdName, cn)
           Dim param1 As New SqlParameter(Param1Name, Param1Value)
           Dim param2 As New SqlParameter(Param2Name, Param2Value)
   
           ' Open the connection.
           cn.Open()
   
           ' Set CommandType to StoredProcedure.
           cmd.CommandType = CommandType.StoredProcedure
   
           ' Add parameters.
           cmd.Parameters.Add(param1)
           If Param2Name <> vbNullString Then
               cmd.Parameters.Add(param2)
           End If
   
           ' Run the command.
           cmd.ExecuteNonQuery()
   
           ' Close the connection.
           cn.Close()
       End Sub

   Note Replace <Computer Name> in the code with the name of the computer that is running the MSDE instance. Replace <Domain Name> and <User Name> with the domain name and the user name of the Windows user account that you want to give access rights for the user databases to.
9. On Debug menu, click Start to run the project.