Ciao
innanzitutto per la prossima volta quando posti del codice sorgente racchiudilo tra i tag code, in questo modo diventa più leggibile. Per stavolta te lo faccio io
Per quanto riguarda il tuo problema, se la terza riga è questa
Set RS = DB.OpenRecordset(strSQL, dbOpenDynaset)
hai qualche variabile inizializzata col tipo errato, quindi prova a postare la dichiarazione delle variabili, così vediamo di risolvere