Excel den Access te kayıt güncellemek

[tamer42]

Merhabalar,
Excel de iken ADO ile bağlanıp bir Access dosyası ("AAAAA.mdb")>>> [tblPlan] tablosu üzerinde belli alanları değiştirmek istiyorum.

Yani kayıdın tamamını değil de kayıt içerisinde sadece bir alanı güncellemek (değiştirmek);

Aşağıdaki kodlarla bunu bir şekilde yaptırabildim.

..................
..................

    Set adoCN = CreateObject("ADODB.Connection")
    
    DatabasePath = MyPath & dbName

    adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
    adoCN.ConnectionString = DatabasePath
    adoCN.Open

   Do While Len(Range("U" & r).Value) > 2

 Set rs = New ADODB.Recordset
 
        s = Range("U" & r).Value
     
            stsql = "SELECT * FROM [tblPlan] Where ([SN]='" & s & "')"

            rs.Open stsql, adoCN, 1, 3

            k = Range("G" & r).Value
  rs.MoveFirst

    
  Do While Not rs.EOF
  
      rs("NO_KL") = k
    
   Loop
   
rs.Update
        
        stsql = ""
        
        Set rs = Nothing
    
r = r + 1

Loop
..................
..................

Bu kodlarla bilgi --rs("NO_KL") -- alanına doğrudan yazılıyor.
önce alan --rs("NO_KL") -- içeriği temizlensin, sonra yeni veri yazılsın istiyorum.

rs("NO_KL").delete

yazdım hata verdi, bu işi nasıl çözebilirm.

2. olarakta arkadaşların tecrübesine dayanarak bu kodlar üzerinde bir düzeltme yapılıp daha başarılı bir çalışma yapılabilir mi?

İyi Çalışmalar.