Vorrei aggiungere che avendo fatto il debug, l'errore di run time è relativo alla riga di codice
rs.Open SQL1, conn

Se qualcuno può aiutarmi ne sarò grato