Bekræft med ok ell cancel

Hejsa... er det muligt at indsætte en msgbox hvor man har mulighed for at sige ok ell at cancle... det skal bruges til at bekræfte for at slette en kunde i databasen... herunder viser jeg lige koden til min slette knap:

Private Sub Command6_Click()
'SLET KUNDE

MsgBox "Nu sletter du kunden"


'Her smides data ind i databasen
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\kundeHistorik.mdb")

db.Execute "DELETE * FROM Historik where rsKundenr = " & Text1.Text & ""


'Her oprettes connection til databasen og der vælges hvad table der skal tages fra
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\kundeHistorik.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Historik order by rsFirmanavn")

On Error Resume Next 'med dette undgåes fejlmeddelelse hvis den ikke kan finde recorden

List1.Clear

'Her fylder jeg listboxen
'Først chekker jeg om jeg står ved første post i db
If Not rs.EOF Then
    'Gør den ikke sætter jeg den til at stå på første post
    rs.MoveFirst
    'Her laves et loop der kører alle poster igennem
    Do While Not rs.EOF
        'Her tilføjer jeg firmanavnet til listboxen
        List1.AddItem rs!rsFirmanavn
        'Her gives navnet et listindex som skal bruges senere til at sammenligne databasen med
        List1.ItemData(List1.NewIndex) = rs!rsKundenr
        'Går vidre til næste post
        rs.MoveNext
    Loop
End If
'Her fylder jeg tekstfelterne med først post
'Går til første post
rs.MoveFirst
'Her sættes teksten ind i tekstfelterne
Text1.Text = rs!rsKundenr
Text2.Text = rs!rsFirmanavn
Text3.Text = rs!rsKontakt_fornavn
Text4.Text = rs!rsKontakt_efternavn
Text5.Text = rs!rsPostnr
Text6.Text = rs!rsBy
Text7.Text = rs!rsAdresse
Text8.Text = rs!rsTlf1
Text9.Text = rs!rsTlf2
Text10.Text = rs!rsMobil
Text11.Text = rs!rsHistorik
Text12.Text = rs!rsFax
Text13.Text = rs!rsEMail
Text14.Text = rs!rsWWW

Combo1.Text = rs!rsStatus 'fylder comboboksen med data


'Lukker forbindelsen igen
db.Close
ws.Close
End Sub