AccessTr.neT

İyi Günler;

Formda hazırlamış olduğum verileri bir tabloya aşağıdaki şekilde aktarıyorum.
Masa üstündeki bir Excel i Access e linklesem (başlıklar aynı olacak şekilde) , aşağıdaki kodlamada ne değişikliği yapmam gerekmektedir?



Private Sub Command123_Click()

Dim rs As New ADODB.Recordset
    rs.Open "Rakip_Fiyatları", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.AddNew
    rs("Tarih") = Me.Tarih.Value
    rs("No") = Me.No.Value
    rs("Müşteri") = Me.Müşteri.Value
    rs("Brüt Teklif") = Me.Brüt.Value
    rs("Net Teklif") = Me.Net.Value
    rs("Rakip Marka") = Me.AB1.Value
    rs("Rakip No") = Me.AB6.Value
    rs("Rakip Brüt Fiyat TL") = Me.AB2.Value
    rs("Rakip İskonto") = Me.AB3.Value
    rs("Rakip Net Fiyat TL") = Me.AB4.Value
    rs("Rakip Net Euro") = Me.AB5.Value
    rs("Not") = Me.Not.Value
    rs.Update
Set rs = Nothing

End Sub