Populate Userform from Listbox Record

Hello again.

With everyone's help I have completed all but one piece (not including formatting textboxes) Have attached file

I still am having difficulty getting a record to update from the userform. I recieved one reply but could not get it to work

Here is the code on the update buttion. The goal is to select a record on the listbox and then update by the corresponding text box.


Private Sub CommandButton2_Click()
If Me.Client.Text = "" Then
MsgBox "No Record selected", , "Errors"
Exit Sub
End If
With Sheet1.ListRows(.ListIndex + 1)
.Range(2).Value = Client.Value
.Range(3).Value = Officer.Value
.Range(4).Value = Documentor.Value
End With

MsgBox ("Details Changed"), vbOKOnly + vbInformation, "SAVED"
End Sub