Ado ile Veri Getirmek

[askm]

Kolay gelsin.
Aşağıdaki gibi bi r kod yazdım ama "Ya BOF ya EOF doğru veya geçerli kayıt silinmiş uyarısı" veriyor. Veri var ama veri gelmiyor.
S sütununda değer olan (Dolu olan) ve E sütununda da atamış olduğum değer (kalem) olan verileri almak istiyorum.

Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;" & "data source=" & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 8.0;hdr=No"""
Aranan = "kalem"
  sorgu = "select f5,f6,f7,f8,f9 from [Sayfa1$E6:S65000] where f5 ='" & Aranan & "' GROUP BY f5,f6,f7,f8,f9"

    rs.Open sorgu, con, 1, 1
    Sayi = rs.RecordCount
'    If rs.RecordCount > 0 Then
        s1.Range("D6") = rs(0)
'   End If

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

 

[Korhan Ayhan]

Örnek dosyanız varsa test etme şansımız olabilir.