Listedeki veriyi güncelleme

[k0081]

Merhaba arkadaşlar;

VB6 ortamında bir program geliştirmekteyim. Şu kısımda takıldım ;

Yeni Kayıt oluştur.... Ok!
Kayıt sil................ Ok!
Kayıt Güncelle........ X

Kayıt güncelleme butonunda kullandığım kodlar;

Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
AcadXST.Adodc2.Recordset![Xklavye] = txtname
AcadXST.Adodc2.Recordset![lispdosya] = txtLisp
AcadXST.Adodc2.Recordset![Xaciklama] = Text1
AcadXST.Adodc2.Recordset.Update
AcadXST.Adodc2.Refresh
PutInTheListTheRecords
Unload Me
MsgBox "Kayıt Güncellendi.", vbInformation
End Sub

Kodu çalıştırdığımda güncellediğim koddan( yani list1 içindeki veriden..) iki tane oluşuyor. List1 dee görünüyor. Ama database (*.mdb) kayıt sayısı değişmiyor.. İki tane aynı veriden olsun istemiyorum.. Kayıt sayısı da zaten degişmemeli. çünkü güncelleme yapıyoruz.
---------------------

* Listedeki (List1) veriyi sağ click ile "kodu güncelle" komutu ile başlatıp, 3 adet textbox tan oluşan bir pencerede "Güncelle" komutuna basarak işlem yaptırıyorum.
---------------------
Kodu nasıl düzenlemeliyim ?

yardımcı arkadaşa şimdiden teşekkürler.