Ciao, volendo inserire un nuovo record in un DB ho creato questa procedura......grazie anche a voi

Private Function svuotacampi()
txtNome = ""
txtIndirizzo = ""
txtProvincia = ""
txtRagione = ""
txtTelefono1 = ""
txtTelefono2 = ""
txtNote = ""
End Function
________________________________
Private Function sbloccacampi()
txtNome.Locked = False
txtIndirizzo.Locked = False
txtProvincia.Locked = False
txtRagione.Locked = False
txtTelefono1.Locked = False
txtTelefono2.Locked = False
txtNote.Locked = False

End Function

________________________________

Private Sub cmdAggiungi_Click()
Rs.AddNew
svuotacampi
sbloccacampi
cmdAnnulla.Visible = True
cmdPrimo.Visible = False
cmdUltimo.Visible = False
cmdSuccessivo.Visible = False
cmdPrecedente.Visible = False
End Sub
__________________________

Private Sub cmdSalva_Click()
Rs("CognomeNome") = txtNome
Rs("Indirizzo") = txtIndirizzo
Rs("Provincia") = txtProvincia
Rs("RagioneSociale") = txtRagione
Rs("Telefono") = txtTelefono1
Rs("TelefonoSecondario") = txtTelefono2
Rs("Note") = txtNote

Rs.Update
End Sub
____________________________________



........ma non mi fuziona. Non inserisce niente nel db, nč mi restituisce errori.
Ovviamente apro la connessione con il db nel form_load.
Utilizzo funzioni di movefirst,movelast,movenext,moveprevious, e funzionano tutte.

Grazie