Private Sub Command1_Click() If (Text2.Text = "") Then MsgBox "Aucn identifiant n'est saisie", vbInformation, "" Text2.Text = "" Else Adodc1.RecordSource "select * from Voiture where Identifiant '" & Text2.Text & "';" Dim Warning As Integer Warning = MsgBox("étes vous sûr de vouloir supprimer cette voiture?", vbCritical + vbYesNo, "Warning!!!") If (Warning = vbYes) Then Adodc1.Refresh Adodc1.Recordset.Delete MsgBox ("votre voiture est supprimée") Else MsgBox ("suppression annulée") End If End If End Sub