Mi spiace ma quando sono disponibile aiuto sul forum e non in forma privata sia per volontà mia che per correttezza verso gli altri forumisti.

Non riesco proprio a capire dove sia la tua difficoltà. Il file è perfettamente funzionante e al click sul bottone "show selected records" ti genera la stringa del tipo "1,2,3" che è esattamente ciò che ti serve per calcolare la somma con la query che ti ho scritto.

Per eseguire la query il codice da associare al bottone è questo:

codice:
Private Sub Command14_Click()
Dim strSQL As String
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
strSQL = "select sum(prezzo) as totale from contacts where contactid in (" & MySelected & ")"
Set rs = db.OpenRecordset(strSQL)
MsgBox "Il totale è " & rs("totale")
End Sub
supponendo che il campo in cui inserisci i prezzi si chiami prezzo.
Più di così non saprei come aiutarti.