Faire un update en VBA

Bonjour,
J'aurais souhaité savoir comment faire un UPDATE en VBA car je souhaiterais mettre a jour ma base de donnée.
Pour mettre une donnée en base je procède comme suit :

Dim connect As ADODB.Connection 'Preparation de la chaine de connection connect

Set connect = New ADODB.Connection 'Creation de la chaine de connection connect

'Connection à la base de donnees
Dim cheminbdd As String
cheminbdd = Replace(ActiveDocument.FullName, "\doc_install.dot", "\base1.mdb")
connect.Open "Provider=Microsoft.Jet.oledb.4.0; Data Source=" & cheminbdd

Dim req1 As New ADODB.Recordset
req1.Open "select * from page1", connect, adOpenKeyset, adLockOptimistic 'Ma table est selectionnée ds la bd qui est ds connect
req1.AddNew 'ajout d'un element
req1("nomprojet") = D1.FormFields("nomprojet").TextInput.Default
req1.Update
req1.Requery

Comment je peux modifié une donnée de ma base1.mdb en m'appuyant sur ce code la. Je pense qu'en modifiant la ligne en gras ça devrais etre faisable mais comment ?

Merci de votre aide