Je veux modifier un enregistrement mais d'après le code que j'ai établi aucune modification ne s'effectue. Comment faire?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Private Sub Btnmodif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmodif.Click
        Btnmodif.Enabled = False
        Btnannuler.Enabled = False
        Btnediter.Enabled = True
        Dim cnx As New OleDbConnection
        Dates.Visible = False
        Txtdates.Visible = True
        Txtdates.Text = ""
        Datef.Visible = False
        Txtdatef.Visible = True
        Txtdatef.Text = ""
        Cbxfrs.Visible = False
        Txtnomfrs.Visible = True
        Txtnomfrs.Text = ""
        Txtnumab.Enabled = False
        Txtnumab.ReadOnly = True
        Txtnumab.Text = ""
        Txtlibab.Enabled = False
        Txtlibab.Text = ""
        Txtdates.Enabled = False
        Txtdates.ReadOnly = True
        Txtdatef.Enabled = False
        Txtdatef.ReadOnly = True
        Txtmontantab.Enabled = False
        Txtmontantab.ReadOnly = True
        Txtmontantab.Text = ""
        Txtnumfrs.Enabled = False
        Txtnumfrs.ReadOnly = True
        Txtnumfrs.Text = ""
        Txtnomfrs.Enabled = False
        Txtnomfrs.ReadOnly = True
        Txtnomfrs.Text = ""
        Dim command = New OleDbCommand("update Abonnement set Abonnement.Num_abonnement='" & Cbxnumab.Text & "'", cnx)
        Try
            cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
            cnx.Open()
 
        Catch ex As Exception
 
        End Try
        Me.Dispose()
        Frmprincipale.Show()
    End Sub