Ado Veri çekmede döngü kuralı

[acar6783]

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & Year(Date) & ".mdb"

For c = 2 To cb.Cells(Rows.Count, 2).End(3).Row
  For syf = 1 To 12
 sorgu = "SELECT SUM([Satış Toplamı:]) FROM " & syf & " WHERE CariKodu = '" & cb.Range("B" & c) & "' "
        Rs.Open sorgu, Con, 1, 3
       
        cb.Range("P" & c) = Rs(0).Value + cb.Range("P" & c)
     Rs.Close
     Next
      Next
      Con.Close

Bu kodlarda 1den12ye kadar olan sayfalardan veri çekmeyeçalışıyorum fakat doğru verileri alamıyorum.

FROM " & syf & "
Bu bölüme herhangi bir sayfanın adını yazarsam doğru veri geliyor.

Döngüde biryerde hata yapıyorum ama nereden çözöedim yardımcı olabilirmisiniz?

Döngüsüz tüm sayfalardan arama yapacak kod sanırım yok olsa süper olurdu

 

[acar6783]

Sorun bazı sayfaların boş olmasından kaynaklanıyor.
Ama Ne denediysem değeri düzeltemedim.Toplam alacağı yerde boş "" değer geliyor

 

[acar6783]

Kendim son aklıma geleni yazdım vesorunumu çözdüm

If Not IsNull(Rs(0).Value) Then cb.Range("P" & c) = cb.Range("P" & c) + Rs(0).Value