rs.Open "SELECT * FROM utenti WHERE cognome='" & textbox1.text & "'", cn, 1

... ma ci sarebbe tanto da dire ...