Problemer med Forms Authentication og roller

Jeg har følgende login funktion. Mit problem er at den ikke registrerer de roller brugeren har tildelt første gang der klikkes på login knappen - anden gang gør den det? Er der nogen der kan se fejlen

    Public Sub btnlogin_click(Source As Object, E as EventArgs)
        Data.OpenDb()
            if Data.fejl = true then                   
                _fejl = true
                exit Sub   
            end if
            dim udtryk as string
            udtryk = "SELECT bruger.*,brugeradgang.*,kategori.* "
            udtryk +="FROM bruger,brugeradgang,kategori "
            udtryk +="WHERE bruger.brugerid=brugeradgang.brugerid "
            udtryk +="AND brugeradgang.katid=kategori.katid "               
            udtryk +="AND bruger.brugerbruger = '" & txtbruger.text & "' "
            udtryk +="AND kategori.katsynlig = 1"
            udtryk +=";"                           
            Data.Dan(udtryk)
            if Data.fejl = true then                   
                _fejl = true
                exit Sub   
            end if
            If Data.Data.Read()
                If grundstamme.erstatblank(Data.Data("brugerpassword").tostring) = txtpassword.text Then                                   
                    labbesked.text = "altok"
                    Formsauthentication.SetAuthcookie(grundstamme.ErstatBlank(Data.Data("brugerid").tostring), false)
                    Dim rolleliste As New ArrayList
                    Do
                        rolleliste.Add(grundstamme.ErstatBlank(Data.Data("katid")))
                    Loop While Data.Data.read()   
                    Dim rollelisteArray As String() = rolleliste.ToArray(GetType(String))
                    Context.User = New GenericPrincipal(Context.User.Identity, rollelisteArray)
                Else
                    labbesked.text = "Password er forkert"
                End If
            else
                labbesked.text = "Brugernavn findes ikke"                   
            end if                           
        Data.CloseDb()           
    end sub