Excel'den Makro ile Access Tablosu Güncelleme

[fthtls]

Arkadaşlar merhaba;

Excel'de bir makro yazdım. Amacım bilgisayarımdaki Test.mdb adlı access database'indeki "Spec" adlı tablodaki verileri güncellemek.

Sub DataExcelToAccess()

Dim con As ADODB.Connection, rs As ADODB.Recordset    
   
    Set con = New ADODB.Connection
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=C:\TEST.mdb;"
    Set rs = New ADODB.Recordset
    rs.Open "Spec", con, adOpenKeyset, adLockOptimistic, adCmdTable


    rs.Fields("value") = 5
    rs.Fields("DataBeseValue") = 5
    rs.Fields.Update
        
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub

Spec adlı tabloda "value" ve "DataBaseValue" adlı 2 kolon var. Her kolonda da 400 satır var. Ben bunların ilk satırlarındaki değerleri 5 yapmak istiyorum. Fakat yukarıdaki kodla yapamadım. Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.