Change Mainform fields On Click Of Subform row

[Greg Lyon via AccessMonster.com]

I have the following code to populate the subform with records based upon
chosing a company name in a combo box on my main form:

Private Sub Combo170_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Companyid] = " & Str(Nz(Me![Combo170], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Now, that I have a list of records in my subform, I would like to click on
a row in the subform and have the fields change on my mainform that match
the row clicked. The subform is in datasheet view.

Does anyone have code for this??

Thanks,
Greg