butonun kodu aşağıdaki gibi olacak. tablo/alan/form vsvs  isimlendirmesinde kullandığınız "-" , Türkçe karakterler yada "boşluklar" soruna neden olabiliyor.
"boşluk" yada "-" yerine "_" kullanmanız daha uygun olur
aşağıdaki 2 resim referans eklemeyi ve kodu gösteriyor

'referans eklemeniz gerekebilir "Microsoft DAO 3.x Object Library" referansını eklemelisiniz

Tbas = Now

Dim rS As Recordset '<== burada hata verirse  ==> Dim rS As DAO.Recordset de olabilir <== olarak değiştirin

Dim sOrGu, SqlGuncelle As String

Dim x As Long



sOrGu = "select * from [Table2-YENILMEMESERISI-EV] order by sno"

Set rS = CurrentDb.OpenRecordset(sOrGu)

         If rS.RecordCount = 0 Then GoTo 10

rS.MoveLast

rS.MoveFirst

x = 0

Do Until rS.EOF

    x = x + IIf(DLookup("as", "[Table2-YENILMEMESERISI-EV]", "sno=" & rS.Fields("sno")) = Nz(DLookup("as", "[Table2-YENILMEMESERISI-EV]", "sno=" & rS.Fields("sno") - 1)), 0, 1)

    SqlGuncelle = "UPDATE [Table2-YENILMEMESERISI-EV] SET [Table2-YENILMEMESERISI-EV].as2 =" & x & " where sno=" & rS.Fields(0)

    CurrentDb.Execute SqlGuncelle

    rS.MoveNext

Loop



10



'süre hesapla_______________________________________

Tbit = Now

Sure = DateDiff("s", Tbas, Tbit)

tSny = Sure Mod 60

tDk = Sure \ 60

MsgBox ("İşlem " & tDk & " dakika :" & tSny & " saniyede bitti")

'süre hesapla_______________________________________Bitti