Try the following codes:
Dim mCN as Connection
Dim mRS as RecordSet

mRS.Open "SELECT * FROM YourTable WHERE YourField =" & mYourConditions, mCN, adOpenKeyset, adLockOptimistic
With mRS
.Fields("Test1").Value = Text1.Text
.Fields("Test2").Value = Text2.Text
.Update
.Close
End With