Visual Basic 6.0 : SQL Delete

Sample Codes Here:

Private Sub cmdD_Click()

Dim a As String

a = MsgBox("Are you sure you want to Delete?", vbQuestion + vbYesNo, "Message")

If a = vbYes Then

con.Execute "Delete * from tblsampledb where FirstName='" & txtFN.Text & "'"

MsgBox "Successfully Delete!", vbCritical, "Message"

txtFN.Text = ""

txtMN.Text = ""

txtLN.Text = ""

txtFN.SetFocus

Exit Sub

End If

End Sub

Watch video below