Private Sub RadioData_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioData.CheckedChanged
        Dim c As System.Windows.Forms.Control
        For Each c In Me.Controls
            If (c.GetType.ToString = "System.Windows.Forms.TextBox") Then
                c.Text = ""
            End If
        Next
        If RadioData.Checked = True Then
            DateTimePicker2.Enabled = True
        Else
            DateTimePicker2.Enabled = False
        End If
    End Sub

    Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
        Dim ds1 As New DataSet
     --->   If RadioData.Checked = True Then
            Dim dataForm As String = DateTimePicker2.Value.ToString("yyyy-MM-dd")
            Dim command As String = "select * from persona as p, telefono as t where p.idPersona=idTelefono and DataN =" & _
    "'" & dataForm.Trim & "';"
            M.connessione.Open()
            M.adattatore = New MySqlDataAdapter(command, M.connessione)
            M.adattatore.Fill(ds1, "Prova")
            DataGridView1.DataSource() = ds1.Tables("Prova")
                      MessageBox.Show(DataGridView1.Columns.Count.ToString())

            DataGridView1.Columns(0).Visible = False
            DataGridView1.Columns(11).Visible = False
            M.connessione.Close()
    --->    End If
    End Sub