Tamam.

Yalnız şöyle bir durum var alttaki gib sadece güncelleme için kodu alttaki gibi yaptım yani addnew yerini kaldırdım ve hata oluştu.
Normalde  tabloya yazdıklarım göncellenmeliydi.

Do While Not rs.EOF And Not rs.BOF 'Tablo güncelleme icin(Exceldeki recordseti icine alinan veriler icin döngü)

      SrgK = " select * from tablo1 where [kod]='" & Replace(rs(0), "'", "''") & "'"

      rsK.Open SrgK, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

      If rsK.RecordCount = 0 Then 'rsK.MoveFirst

            rsK(1) = rs(1)

            rsK(2) = rs(2)

            rsK(3) = rs(3)

            rsK.Update

            say = say + 1

      End If

      rsK.Update

      rsK.Close

      rs.MoveNext

        DoEvents

      

      Me.ProgressBar3.Value = ((say + say1) / adet) * 100

      Me.lbyzde.Caption = Int(Me.ProgressBar3.Value) & " %"

    

    Loop