halily sağolsun konuyu teamviewer ile bağlanarak çözdü,kendisine buradan tekrar teşekkür ediyorum,Sorun referanslarda olup,olması gereken halini ekte resim olarak ekliyorum.Office 2000 versiyonunda çalışan kodu da aşağıda yazıyorum(kod bu hali ile olacaktır)

Private Sub BtnGuncelle_Click()

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

Tbas = Now()



Dim rS As DAO.Recordset  

Dim sOrGu, SqlGuncelle As String

Dim x As Long



sOrGu = "select * from SERI01 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", "SERI01", "sno=" & rS.Fields("sno")) = Nz(DLookup("as", "SERI01", "sno=" & rS.Fields("sno") - 1)), 0, 1)

    SqlGuncelle = "UPDATE SERI01 SET SERI01.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

End Sub