Pre-select i CheckBoxList

Jeg har prøvet mig lidt frem med dette, efter at have fyldt checkboxlisten op:

  strSQL = "SELECT Navn From Tabel WHERE Status = True;"   
                             
                If ObjReader.Read() Then
                    Dim Item As ListItem
                    For Each Item In Chk1.Items                       
                        Dim li As ListItem = Chk1.Items.FindByValue(ObjRs("Navn"))
                        If li Is Nothing Then
                            li.Selected = False
                        Else
                            li.Selected = True
                        End If
                    Next
                End If

Den melder ingen fejl, men afkrydser ét af felterne i min Chk1. Det ser lidt tilfældigt ud, men det er et felt der står til true i min database

Hvordan kan det være? Gør jeg noget galt her: "If li Is Nothing Then"

Fandt vist ud af det.