hvorfor har jeg ikke noget output her?

Hej med jer...

Min reader returnere ikke noget. Jeg har en metode, som returenere en sting værdi.

Denne string vil jeg så binde til en label.

code:
-------------------
With cm
                    .CommandText = "SELECT Forum, ForumDescription FROM tblForums_Employees_Forums"
                    .CommandType = CommandType.Text
                    .CommandTimeout = 30
                    .Connection = cn
                    rd = .ExecuteReader(CommandBehavior.CloseConnection)
                End With

                rd.Read()
                If rd.HasRows Then
                    While rd.Read
                        s = rd.GetString(0) & ", " & rd.GetString(1)
                    End While
                Else
                    s = "Nothing there!"
                End If

                Return s



lnkForums.Text = s.ToString

Håber at høre fra nogen

Mvh

DN