Private Sub caricabolle()
        Try
            DataGridViewBolle.DataSource = Nothing
            Dim SQLConnectionString As String
            Dim SQLConnection As New SqlConnection
            Dim dataset1 As New DataSet
            SQLConnectionString = My.Settings.WeaGestDBConnectionString & "xxxxxxxxx"
            SQLConnection.ConnectionString = SQLConnectionString
            SQLConnection.Open()
            Dim cm As New SqlCommand
            Dim sql As String = "SELECT MovimentiMagazzino.ID_Movimenti,MovimentiMagazzino.R_NumeroDocumento,MovimentiMagazzino.R_DataDocumento" & _
                                ",MovimentiMagazzino.R_AnnoDocumento, MovimentiMagazzino.ID_Fornitore,ClientiFornitori.R_Cliente,MovimentiMagazzino.R_NumeroDettagli" & _
                                ",MovimentiMagazzino.R_ImponibileIva,MovimentiMagazzino.R_ImportoIva,MovimentiMagazzino.R_TotaleDocumento,MovimentiMagazzino.R_RifFattura" & _
                                ",MovimentiMagazzino.R_DataFattura,MovimentiMagazzino.R_Saldata FROM MovimentiMagazzino INNER JOIN ClientiFornitori ON ClientiFornitori.ID_Cliente = MovimentiMagazzino.ID_Fornitore"

            Dim where As String = ""
            If ComboBoxPeriodoBolla.Text <> "Intero Anno" Then
                If where.Length > 0 Then where = where & " AND "
                where = where & "Month(R_DataDocumento) = " & (ComboBoxPeriodoBolla.SelectedIndex().ToString) & ""
            End If

            If ComboBoxFornitore.Text <> "Tutti i Fornitori" Then
                If where.Length > 0 Then where = where & " AND "
                where = where & "MovimentiMagazzino.ID_Fornitore = " & (ComboBoxFornitore.Text) & ""
            End If

            Dim query As String = sql
            If where.Length > 0 Then query = sql & " WHERE " & where
            cm.CommandText = sql
  Dim da As New SqlDataAdapter
            da.SelectCommand = cm
            da.SelectCommand.Connection = SQLConnection
            Dim tablename2 As String = "MovimentiMagazzino"
            da.Fill(dataset1, tablename2)
            DataGridViewBolle.DataSource = dataset1
            DataGridViewBolle.DataMember = tablename2
            SQLConnection.Close()
            Dim Font As New Font(DataGridViewBolle.DefaultCellStyle.Font.FontFamily, 10, FontStyle.Regular)
            Dim FontTestata As New Font(DataGridViewBolle.DefaultCellStyle.Font.FontFamily, 8, FontStyle.Regular)
            Me.SuspendLayout()
            With Me.DataGridViewBolle
                .RowHeadersVisible = False
                .Columns("ID_Movimenti").Visible = False
                .Columns("R_NumeroDocumento").HeaderText = ("Num Doc")
                .Columns("R_NumeroDocumento").DefaultCellStyle.BackColor = Color.Silver
                .Columns("R_NumeroDocumento").DefaultCellStyle.ForeColor = Color.White
                .Columns("R_NumeroDocumento").DefaultCellStyle.Font = Font
                .Columns("R_NumeroDocumento").AutoSizeMode = DataGridViewAutoSizeColumnMode.Displayed