Bonsoir les génies

J'utilise Visual Studio 2012 et Access 2007. J'ai une table Certifs qui contient un champs DateCertifs de type date. En Ajoutant une Nouvelle Certifs tous fonctionne bien, pour la visualisation des Certifs j'utilise une DataGirdView et tous est OK. Je clique sur une ligne quelconque pour supprimer une Certifs présice je reçoit un message d'erreur " Type de données incompatible dans l'expression du critère. "
Voici mon Code:

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
   Private Sub DG_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DG.CellContentClick
        Label2.Text = CDate(DG.CurrentRow.Cells(0).Value.ToString)
    End Sub
 
  Sub SuppCertifs()
               Try
                '---------------------   Suppression dans la Table Certifs   ---------------------------------
                Cn.Open()
                Cmd.Connection = Cn
                Cmd.CommandType = CommandType.Text
                Cmd.CommandText = "DELETE FROM Certifs WHERE DateCertifs = '" & Label2.Text & "'"
                Cmd.ExecuteNonQuery()
                Cn.Close()
                '-------------------   Re-Afficher DataGrid après Ajout dan la Table Certifs   ------------------------
                Ds.Clear() : Dt.Clear()
                AfficheCertifs()
                Catch ex As Exception
                   MsgBox(ex.Message)
                   Cn.Close()
                End Try
    End Sub