Select İle Kayıt Ekleme

iyi akşamlar arkadaşlar,
eklediğim örnekte,
liste kutusundaki herhangi bir kaydı seçip, 
yenikg alanına da yazdığım miktar (gelen kg) 

KAYDI COĞALT butonuna tıkladığımda liste kutusundan seçmiş olduğum kayda ait tüm verileri tablodan alıp, sadece kg kısmını formdaki yenikg alanından alarak, tabloya yeni kayıt eklemek istiyorum, 
yardımcı olabilirmisiniz?

[img]
[/img]

ID no da mı aynı olacak?
ID no aynı olamaz çünkü benzersiz alan

ID NO AYNI OLMAYACAK, O OTOMATİK,
ID HARİÇ

'================>>>>>>>>>>>>>>>        bu alana kayıt ekleme kodu yazmak istiyorum        <<<<<<<<<<<<<<<<<<<<===================

y = Me.Liste0.Value



'Dim rs1 As Recordset

Set rs1 = CurrentDb.OpenRecordset(Name:="IPLIK_STOK_GIRIS", Type:=RecordsetTypeEnum.dbOpenDynaset)



    rs1.FindFirst "[ID]=" & y

    Set rs2 = CurrentDb.OpenRecordset("IPLIK_STOK_GIRIS")

    rs2.AddNew

    For x = 1 To rs1.Fields.Count - 1

        rs2(x) = rs1(x)

    Next x

    rs2(10) = kg

    rs2.Update

'================>>>>>>>>>>>>>>>        bu alana kayıt ekleme kodu yazmak istiyorum        <<<<<<<<<<<<<<<<<<<<===================

yada

'================>>>>>>>>>>>>>>>        bu alana kayıt ekleme kodu yazmak istiyorum        <<<<<<<<<<<<<<<<<<<<===================

y = Me.Liste0.Value

Set rs1 = CurrentDb.OpenRecordset(Name:="select * from IPLIK_STOK_GIRIS where Id=" & y, Type:=RecordsetTypeEnum.dbOpenDynaset)



    rs1.MoveFirst

    Set rs2 = CurrentDb.OpenRecordset("IPLIK_STOK_GIRIS")

    rs2.AddNew

    For x = 1 To rs1.Fields.Count - 1

        rs2(x) = rs1(x)

    Next x

    rs2(10) = kg

    rs2.Update

'================>>>>>>>>>>>>>>>        bu alana kayıt ekleme kodu yazmak istiyorum        <<<<<<<<<<<<<<<<<<<<===================

sayın üstadım, yardımın için çok teşekkür ederim,
açmış olduğum sorun çözülmüştür.

Rica ederim
İyi çalışmalar)