Never mind worked it out myself

here it is:

Code:
Dim lngCounter As Long
lngCounter = 0

    For lngCounter = 0 To lstOperationSummary.ListCount - 1
            Me.Recordset.AddNew
            Me.lstOperationSummary.BoundColumn = 1
            Me.Recordset.Fields("Code") = lstOperationSummary.ItemData(lngCounter)
            Me.lstOperationSummary.BoundColumn = 2
            Me.Recordset.Fields("Detail") = lstOperationSummary.ItemData(lngCounter)
            Me.Recordset.Update
        If lstOperationSummary.Selected(lngCounter) Then

        End If
        Next lngCounter
    

    MsgBox "Operation Details Saved", vbOKOnly, "Saved"