------------------------------------------------------------
Select Case c
Case Is = 0 ' nessuna selezione
MsgBox "Nessuna selezione effettuata"

Case Is = 1 ' un solo record

'INSERT INTO

Case Is > 1
'sommare l'importo dei pagamenti selezionati

do until x.eof
if x("selettore") = -1 then p = 0 + p else p= x("importo") + p
x.movenext
loop

End Select
---------------------------------------------------------------
Ti ringrazio della risposta, proverò di sicuro il metodo INSERT INTO nella selezione di un singolo pagamento.
Il problema è che il codice VBA lo devo usare lo stesso, perrchè se la selezione è maggiore di un singolo record (sopra ti ho copiato il codice con i case completi) deve effettuare una somma degli importi.