Mise à jour de table dans une base access 2007 avec vb.net

pouvez vous m'envoyer un lien SVP ! en fait voici mon code j'ai essayer de l'exécuter mais je sais pas pourquoi il me déclenche une erreur :(

Imports System.Data.OleDb
Public Class Consult
Dim myconnection As New OleDbConnection


Private Sub Debiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Debiter.Click
Dim trouve As Boolean = False
Dim myconnection As OleDbConnection = New OleDbConnection("Provider= Microsoft.ACE.OLEDB.12.0 ; Data source=C:\Users\IMEN\Desktop\projet.accdb")

myconnection.Open()
If myconnection.State = ConnectionState.Open Then
Dim cmd As OleDbCommand = myconnection.CreateCommand
cmd.CommandText = "select cin, numcompte,decouvmax,solde from Compte2 "
Dim DRD As OleDbDataReader = cmd.ExecuteReader

While DRD.Read And trouve = False
If DRD.GetValue(0) = Txtclt.Text And DRD.GetValue(1) = txtnumcpt.Text Then
trouve = True
End If
End While
If (trouve = True) Then
MsgBox("Connecter ", 0 + 64, "Connecter")
Dim cmd1 As OleDbCommand = myconnection.CreateCommand
If (txtmont.Text <= DRD.GetValue(2) - DRD.GetValue(3)) Then
cmd1.CommandText = "update Compte2 set solde= solde +textmont.text "
cmd1.ExecuteNonQuery()
End If



Else
MsgBox("Erreur de saisie ", 0 + 16, "Erreur")
End If
End If

End Sub

Private Sub Consult_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myconnection.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;Data source=C:\Users\IMEN\Desktop\projet.accdb"

myconnection.Close()


End Sub
End Class