deletedbtn

Private Sub Deletebtn_Click(sender As Object, e As EventArgs) Handles Deletebtn.Click
        Dim deletequery As String = "DELETE from Faith WHERE LastName =  @LastName, FirstName = @FirstName, Birthday = @Birthday, Weight = @Weight, Height = @Height, Sex = @Sex, Age = @Age, BMI = @BodyMassIndex, Nutritional = @NutritionalStatus, HeightAge = @HeightforAge"
        executequery(deletequery)
        MessageBox.Show("Data Deleted")
    End Sub