questo è l'errore
Unterminated string constant
su questa riga
rs.Open "select * from virus where id ="&id1", conn


dove sbaglio?