Topla çarpım kodu hakkında

[zfr10]

Cümleten hayırlı günler dilerim. Daha önce kullandığım topla çarpım kodu tekrar hata vermeye başladı. Bu konu hakkında yarımlarınızı talep ediyorum.

If MsgBox("İcmal Toplamı Almak İstiyor Musunuz? ?", vbYesNo, "Dikkat") = vbNo Then Exit Sub

MsgBox "Lütfen Bekleyiniz.....Verileriniz Hesaplanıyor...", vbCritical
Sheets("İCMAL").Select
Dim con As Object, rs As Object
Set con = CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=YES"""
Range("N265536").ClearContents

For i = 2 To Sheets("ÇIKIŞ").Range("B65536").End(3).Row

Set rs = CreateObject("ADODB.recordset")
sorgu = "SELECT SUM([ADET]),SUM([HACİM]),SUM([STER]) FROM [ÇIKIŞ$] Where [YILI]=" & Sheets("ÇIKIŞ").Cells(i, 10) & " AND [İSTİF]=" & Sheets("ÇIKIŞ").Cells(i, 2) & "'"

rs.Open sorgu, con, 1, 2 'daha önce 3 ile çalışmadı eğer 2 çalışırsa bağlantı hatası..
If Not rs.EOF Then
Sheets("İCMAL").Cells(i, 14).Value = rs.Fields(1).Value
Sheets("İCMAL").Cells(i, 15).Value = rs.Fields(2).Value
Sheets("İCMAL").Cells(i, 16).Value = rs.Fields(3).Value
End If
rs.Close
Next i

con.Close
Set con = Nothing
Set rs = Nothing
sorgu = ""

Kırmızı alanda hata veriyor.