5700 kayıt var güncellenirken progressbarda göstermek için

say = say + 1

deger = say * w / rst.RecordCount

yuzde = say * 100 / rst.RecordCount



If (Int(yuzde) = yuzde) Then

      Call RunProgressBar(Me.pb_item, deger)

      Me.pb_lbl.Caption = "Veriler Güncelleniyor... % " & Int(yuzde)

End If

sizin dediğiniz gibi yazdım ama hiç tam  sayı bulamadığı için if içine giremedi
nasıl bir mantık kurmam lazım

yani hem label üzerinde tam sayı göstereceğim
hemde progresbar titreyip durmasın diye sadece tam sayılarda 
Call RunProgressBar(Me.pb_item, deger) 
çalışacak

hiç tam sayı elde edemese bile progress bar bitene kadar sadece 100 kez güncellensin ve %1, %2.... diye göstersin