ci sono riuscito, finalmente

alla fine della procedura metto:

'tento il rilascio dell'oggetto com
Marshal.FinalReleaseComObject(recs) : recs = Nothing

'forzo il rilascio
GC.Collect()
GC.WaitForPendingFinalizers()

MsgBox("ok")