Dim bolOnLoad As Boolean
    Private Sub FrmVisualizzaBolle_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        bolOnLoad = True
        RadioButton1.Checked = True
        Periodo()
        CaricaFornitori()
        bolOnLoad = False
        ComboBoxPeriodoBolla.Text = "Intero Anno"
        ComboBoxFornitore.Text = "Tutti i Fornitori"
    End Sub
    Private Sub CaricaFornitori()
        'carico fornitori da mettere nella combo
        Dim SQLConnectionString As String
        Dim SQLConnection As New SqlConnection
        Dim dataset1 As New DataSet
        Dim cm As New SqlCommand
        Dim Fornitori As String = "ClientiFornitori"
        Dim da As New SqlDataAdapter
        SQLConnectionString = My.Settings.WeaGestDBConnectionString & "xxxxxx"
        SQLConnection.ConnectionString = SQLConnectionString
        SQLConnection.Open()
        cm.CommandText = "SELECT ID_Cliente, R_Cliente,R_Tipo FROM ClientiFornitori WHERE R_Tipo = 'F' ORDER BY R_Cliente"
        da.SelectCommand = cm
        da.SelectCommand.Connection = SQLConnection
        da.Fill(dataset1, Fornitori)
        ComboBoxFornitore.DataSource = dataset1.Tables(Fornitori)
        ComboBoxFornitore.DisplayMember = "R_Cliente"
        SQLConnection.Close()
    End Sub
    Private Sub Periodo()
        'carico tutti i mesi dell'anno
        Dim intX As Integer
        ComboBoxPeriodoBolla.Items.Insert(0, "Intero Anno")
        For intX = 1 To 12
            ComboBoxPeriodoBolla.Items.Insert(intX, UCase(MonthName(intX)))
        Next
    End Sub
    Private Sub caricabolle() ..............