str = "INSERT INTO TABELLA (nomecampo) VALUES ('" & tIndirizzo.Text & "')"