Delete button for datagridview

See more:

VB

hi! can you tell me what's wrong in this code? Incase of deleting the selecting row , the message keeps showing that 'coffee deleted failed". Hope you can help me. I'm using vb.net. Thankyou.

What I have tried:

Sub delete()
If MessageBox.Show("ARE YOU SURE YOU WANT TO DELETE THIS RECORD?", "TIPAS FOODCOURT KIOSK", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

Try
cn.Open()
cm = New OleDbCommand("DELETE FROM tblmerchant WHERE DESCRIPTION=@DESCRIPTION", cn)


Dim x As New Integer
cm.Parameters.Clear()

cm.Parameters.AddWithValue("@DESCRIPTION", descrip.Text)
x = cm.ExecuteNonQuery
If x > 0 Then
MessageBox.Show("YOUR RECORD IS SUCCESFULLY DELETED", "TIPAS FOODCOURT KIOSK", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MsgBox("Coffee Deleted Failed!", vbCritical)


End If
Me.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
cn.Close()
End If
End Sub