Visual Basic 6.0 : SQL Save

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