Listbox items kan ikke blive sat selected

Jeg sidder og laver en dynamisk webform hvor jeg henter oplysninger fra database.
I listboxen bliver der tilføje elementer og de elementer som passer til det der ligger i databasen skal sættes som selected.

her er der lidt kode:

.aspx
---------------------------------
<asp:listbox id="ListTilknytningstype" runat="server" Rows="10" SelectionMode="Multiple" Width="100%"></asp:listbox>
------------------------------------
codebehind
-------------------------------
   
Public Sub HentListTilknytning(ByVal Type As String)
        DB.SQL("SELECT * From " + Type)
        While DB.Reader.Read()
            Me.ListTilknytningstype.Items.Add(New ListItem(Me.ListTilknytning.Items(Me.ListTilknytning.Items.IndexOf(Me.ListTilknytning.Items.FindByValue(Type))).Text & ": " & DB.Reader.GetString(DB.Reader.GetOrdinal("Navn")), DB.Reader.GetInt32(0)))
        End While
        DB.Con.Close()
    End Sub

    Private Sub ButtonHent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHent.Click

            Dim i As Integer
            DB.SQL("SELECT * FROM AktivitetSamling WHERE AID = " & Me.AID.Value)
            While DB.Reader.Read()
            For i = 0 To Me.LISTID.Items.Count - 1
            If Me.LISTID.Items(i).Text.ToString = DB.Reader.GetString(DB.Reader.GetOrdinal("Type")).ToString And Me.LISTID.Items(i).Value.ToString = DB.Reader.GetInt32(DB.Reader.GetOrdinal("TypeID")).ToString Then
            Me.ListTilknytningstype.Items(i).Selected = True
            Me.ListTilknytningstype.Items.FindByValue(DB.Reader.GetInt32(DB.Reader.GetOrdinal("TypeID"))).Selected = True
            End If
              Next
              End While
            DB.Con.Close()
        End If
    End Sub
------------------