Here is my code
Dim cnn As Connection
Dim rstPSN As New ADODB.Recordset
Dim varPosition As Variant
Set cnn = CurrentProject.Connection
rstPSN.Open "CalculateInvTot", cnn, adOpenForwardOnly, adLockOptimistic, accmdtabledirect
cnn.BeginTrans
rstPSN.Index = "SEIiD"
total = 0
For Each varPosition In List15.ItemsSelected
rstPSN.Seek List15.ItemData(varPosition)
total = total + ListBox15.Column(2, varPosition)
Next varPosition
cnn.CommitTrans
My next question would be is there a way to achieve the same thing so my current provider understands??
Thank you everyone!