il problema sta quà:

Originariamente inviato da xit

...
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Set Cnn = New Connection
Set Rst = New Recordset

...
usa:

Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

e togli le due righe successive

imposta anche la proprietà LockType del recordset di tipo Optimistic

poi prima di impostare recordset e connection a Nothing devi chiuderli