non collegare le text ai campi, togli la riga
per assegnare i valori al recordset da codice fai:codice:'collego le txtbox ai campi Set t_nome.DataSource = rsonn t_nome.DataField = Nome
codice:Private Sub b_salva_Click() rsonn("nome_campo") = text1 rsonn("nome_campo1") = text2 rsonn("nome_campox") = textx '...e così via 'poi fai l'update rsonn.Update End Sub