Opdater i DB

Jeg har denne kode til at tilføje med:
Dim rs As Recordset
    Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data\Profiles.mdb")
    Set rs = db.OpenRecordset("tblProfiles")
        rs.AddNew
        rs!User = strUser
        rs!Password = strPass
        rs!Email = strEmail
        rs!LoginCount = 0
        rs!CreationDate = Now
        rs!LastIp = Winsock(Index).RemoteHostIP
        rs.Update

hvordan får jeg den til at opdatere rs!LastIp hvor User = strUser og Password = strPass ?