merhaba arkadaşlar, aşağıdaki kırmızı alanda hata veriyor, işin o kısmını tam bilmiyorum bi bakabilir misiniz? teşekkürler.

Dim Con As Object, Rs As Object, Sorgu As String

Set Con = CreateObject("AdoDB.Connection")

Set Rs = CreateObject("AdoDB.RecordSet")

Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\evraklar.xlsx ;Extended Properties=""Excel 12.0;Hdr=yes"""



Sorgu = "update [Sayfa1$] set [durum]='geçti' where [son tarih]<Date()+15 "

Rs.Open Sorgu, Con, 1, 1 ---> burada hata veriyor, şu 1'lerin ne anlama geldiğini bilmiyorum , ondan dolayı sanırım, biraz ezbere oldu ama öğrenmek istiyorum.

'Range("A2").CopyFromRecordset Rs
Rs.Close: Con.Close

Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing