VB 2010 For Next Döngüsü Problemi

[furkan87]

Merhabalar Arkadaşlar,

Dün arkadaşların yardım etmesiyle aştığım string probleminden sonra bugün yeni bir problemle karşı karşıyayım. (VB.net'i iyi bildiğimi söyleyemem)

Problem şu ki;

İç içe iki döngü oluşturup veri tabanında ki tablodan sırasıyla no'su 0 ve 49 arasında değişen kişilerin bilgilerini string türünden daha önce tanımlamış olduğum değişkenlerde saklayacağım. Breakpoint koyarak ta doğruladığım problem; dıştaki döngünün ilk turunda, içteki döngü 0'dan 7'ye olan turunu başarılı bir şekilde tamamlıyor, fakat dıştaki döngü değerini 1 artırmayıp program fonksiyondan çıkıyor. Defalarca incelememe rağmen işin içinden çıkamadım. Sizce burada ki hata nerede olabilir?

   Public Sub FromDBtoVariable()
        sqCmd.Connection = sqCon
        sqCon.Open()

        For idd As Integer = 0 To 49


            hhh = CStr(idd)  //hhh string türünden bir degisken
            sqCmd.CommandText = "SELECT * FROM PhoneIndex WHERE No = '" + hhh + "'"
            sdrRow = sqCmd.ExecuteReader()

            For ddk As Integer = 0 To 7



                Do While sdrRow.Read()

                    bNumberofPeople(idd)+ = 1                         //bNumberofPeople(50)
                    PeopleInfo(idd, ddk) = sdrRow.GetValue(1) //PeopleInfo(50,8)
                    PhoneInfo(idd, ddk) = sdrRow.GetValue(2)  //PhoneInfo(50,8)
                Loop

            Next ddk

        Next idd

        sqCon.Close()

    End Sub