Saving Items from Listview

The following code fetches the records from database with Investigation and Rate fields.
Now I want to select a row from listview and save investigation and corresponding rate to another table which has patient name receipt_no investigation and rate.
How to save INVESTIGATION and RATE from listview to patient table using VB6 and MS access 2007.
Thank you.
With list1
.View = lvwReport
.Appearance = ccFlat
.FullRowSelect = True
.GridLines = False
.HotTracking = True
.HoverSelection = True
.HideSelection = False
.ColumnHeaders.Add 1, "d1", "Investigation"
.ColumnHeaders.Add 2, "d2", "Rate"

End With
Connection
Dim lst As ListItem
list1.ListItems.Clear

Set rs = New ADODB.Recordset
rs.Open "select * from investigation order by investigation desc", Con, adOpenDynamic, adLockBatchOptimistic
If rs.RecordCount <> 0 Then

Do While Not rs.EOF
Set lst = list1.ListItems.Add(1)
lst.Text = rs.Fields!investigation
lst.SubItems(1) = rs.Fields!Rate
rs.MoveNext
Loop

Set rs = Nothing
End If