Ho una maschera con 10 caselle di testo non associate e un pulsante.

Al click del pulsante voglio inserire i dati delle caselle di testo in una tabella. Riesco nel mio intento con i recordset

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM CARINA")

rs.AddNew

rs("ID_risorsa") = Me.txtID.Value
rs("Nome") = Me.txtNome.Value
rs("URL") = Me.txtURL.Value
rs("E-mail") = Me.txtEmail.Value
rs("Indirizzo") = Me.txtIndirizzo.Value
rs("Stato") = Me.txtStato.Value
rs("Città") = Me.txtCittà.ValidationRule
rs("Codice Postale") = Me.txtCAP.Value
rs("Casella Postale") = Me.txtCasella_postale.Value
rs("Telefono") = Me.txttelefono.Value

rs.Update

Eiste un modo più veloce senza scrivere 10 volte quasi la stessa cosa?