Problem med Arraylist

Hej

Her er først del af et sub der skal checke om feltet ID i tabellen ToDo indholder tallene 1,2 ...15 og hvis ikke skal tallet indsættes.
Af en eller anden grund medtages ALDRIG det første felt (tallet 1). Da jeg så fjernede "primær Key" fra feltet i ToDo kom der efterfølgende 2 felter med tallet 1 men herefter fungerer programmeringen :-O

        Dim Connection As New SqlConnection(Conn)
        Connection.Open()
        Dim IDListe As New ArrayList

        Try
            Dim CMD As New SqlCommand("SELECT ID FROM ToDo", Connection)
            Dim reader As SqlDataReader = CMD.ExecuteReader()
            Dim ID As Int32
            If reader.Read Then
                While reader.Read
                    'Liste der indeholder alle ID'er i databasen ToDo
                    ID = reader.GetInt32(0)
                    MessageBox.Show(ID)
                    IDListe.Add(ID)
                End While
                reader.Close()
                Dim X As Integer
                For X = 1 To 15
                    If IDListe.Contains(X) = False Then

                        CMD = New SqlCommand("INSERT INTO ToDo (ID) VALUES (@ID)", Connection)
                        With CMD
                            .Parameters.Add("@ID", SqlDbType.Int)
                            .Parameters("@ID").Value = X
                            .ExecuteNonQuery()
                        End With
                    End If
                Next