[VB.NET] Blocco DB con pulsante modifica

[Mircodj]

raga sapete dirmi perchè il bottone modifica mi manda in blocco il database. sicuramente c'è qualche errore solo che non riesco a capire dove?
ecco il codice

 
        If Not (m_rsCiampi.BOF And m_rsCiampi.EOF) Then
            m_rsCiampi.Fields("Nome").Value = Nome.Text
            m_rsCiampi.Fields("Data").Value = Data.Text
            m_rsCiampi.Fields("Indirizzo").Value = Indirizzo.Text
            m_rsCiampi.Fields("Caratteristica1").Value = Car1.Text
            m_rsCiampi.Fields("Caratteristica2").Value = Car2.Text
            m_rsCiampi.Fields("Caratteristica3").Value = Car3.Text
            m_rsCiampi.Fields("Caratteristica4").Value = Car4.Text
            m_rsCiampi.Fields("Caratteristica5").Value = Car5.Text
            m_rsCiampi.Fields("Caratteristica6").Value = Car6.Text
            m_rsCiampi.Fields("Caratteristica7").Value = Car7.Text
            m_rsCiampi.Fields("Caratteristica8").Value = Car8.Text
            m_rsCiampi.Fields("Caratteristica9").Value = Car9.Text
            m_rsCiampi.Fields("Caratteristica10").Value = Car10.Text
            m_rsCiampi.Fields("Prezzo1").Value = Pre1.Text
            m_rsCiampi.Fields("Prezzo2").Value = Pre2.Text
            m_rsCiampi.Fields("Prezzo3").Value = Pre3.Text
            m_rsCiampi.Fields("Prezzo4").Value = Pre4.Text
            m_rsCiampi.Fields("Prezzo5").Value = Pre5.Text
            m_rsCiampi.Fields("Prezzo6").Value = Pre6.Text
            m_rsCiampi.Fields("Prezzo7").Value = Pre7.Text
            m_rsCiampi.Fields("Prezzo8").Value = Pre8.Text
            m_rsCiampi.Fields("Prezzo9").Value = Pre9.Text
            m_rsCiampi.Fields("Prezzo10").Value = Pre10.Text
            'apertura connessione'
            m_cnConnessioneADO.CursorLocation = ADODB.CursorLocationEnum.adUseClient
            m_cnConnessioneADO.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Preventivi.mdb")
            m_rsCiampi.Open(m_cnConnessioneADO, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

            m_rsCiampi.Update()
            m_rsCiampi.Close()
            m_cnConnessioneADO.Close()

        End If
    End Sub

dove sbaglio secondo voi?

[power.mobile]

sbagli perchè prima di assegnare dei dati al recordset devi comunicargli che vuoi farlo con m_rsCiampi.edit...