Conn = New SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("DBConnection").ConnectionString)

Dim WhereCondition As String = ""
Dim ctrl As Control

For Each ctrl In Me.GroupBox1.Controls
If TypeOf (ctrl) Is TextBox Then
If Not CType(ctrl, TextBox).Text.Equals("") Then
WhereCondition = WhereCondition & CType(ctrl, TextBox).Tag.ToString() & " LIKE @" & CType(ctrl, TextBox).Tag.ToString() & " AND "
cmd.Parameters.AddWithValue("@" & CType(ctrl, TextBox).Tag.ToString(), CType(ctrl, TextBox).Text)
End If
ElseIf TypeOf (ctrl) Is ComboBox Then
If Not CType(ctrl, ComboBox).Text.Equals("") Then
WhereCondition = WhereCondition & CType(ctrl, ComboBox).Tag.ToString() & " LIKE @" & CType(ctrl, ComboBox).Tag.ToString() & " AND "
cmd.Parameters.AddWithValue("@" & CType(ctrl, ComboBox).Tag.ToString(), CType(ctrl, ComboBox).Text)
End If
End If
Next
WhereCondition = WhereCondition.Trim()
If WhereCondition.ToUpper().EndsWith("AND") Then
WhereCondition = WhereCondition.Remove(WhereCondition.Length - 3, 3)
End If

Using cmd As New SqlClient.SqlCommand("SELECT * FROM tbMacchinario WHERE " & WhereCondition, Conn)
MessageBox.Show("SELECT * FROM tbMacchinario WHERE " & WhereCondition)

daMacchinario = New SqlClient.SqlDataAdapter(cmd)

daMacchinario.Fill(DS, "Risultati")
dgvMacchinario.DataSource = DS.Tables("Risultati") 'dgvMacchinario il DataGridView.

End Using


ID_Trasmesso = CStr(DS.Tables(0).Rows(0).Item("ID"))


'Try

' If String.IsNullOrEmpty(txtDimensione.Text) = True Then

' Exit Sub

' End If

' Dim Macchina = txtDimensione.Text.First

' TbMacchinarioBindingSource.DataSource = SimpleQuery(Macchina)
'Catch

' MessageBox.Show("Deve essere inserito almeno un parametro di ricerca" & Environment.NewLine & _
' "Inserire un valore.", "Attenzione.", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' txtDimensione.Focus()

'End Try