A Function With Validations Calling Another One Function

See more:

VB

SQL-Server-2008R2

This is my function:

Private Function validatingControls() As Boolean
       Dim cmbs() As ComboBox = {cmbEmployee, cmbParty, cmbSoftwares, cmbStatus}
       Dim rtb() As RichTextBox = {rtbTextArea}

       Dim empytCB As ComboBox = cmbs.Where(Function(f) f.SelectedIndex = -1).FirstOrDefault
       Dim emptyRB As RichTextBox = rtb.Where(Function(f) f.Text = "").FirstOrDefault

       If empytCB IsNot Nothing Then
           MessageBox.Show("please select a value in dropdown" & empytCB.Name)
           Return False

       ElseIf emptyRB IsNot Nothing Then
           MessageBox.Show("please write query")
           Return False

       Else

           Return True
       End If
   End Function

I've just called this in my button click event, it is automatically saving the data.
This is my button click event:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click

       validatingControls()

       Dim conn2 As String = Nothing
       'Dim con As SqlConnection
       'Dim cmd As SqlCommand
       Dim adp As SqlDataAdapter = New SqlDataAdapter()
       Dim ds As DataSet = New DataSet()
       Dim i As Integer = 0
       Dim sql As String = Nothing
       Try

           con.Open()
           Dim cmd As SqlCommand = New SqlCommand("Insert into quaries values('" & cmbEmployee.Text & "','" & cmbParty.Text & "','" & cmbSoftwares.Text & "','" & cmbStatus.Text & "','" & rtbTextArea.Text & "','" & DateTimePicker1.Value & "')", con)
           cmd.ExecuteNonQuery()
           MsgBox("successfully saved")
           clearAllFields()
           con.Close()

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

   End Sub