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_Fornitore, 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"
        ComboBoxFornitore.ValueMember = "ID_Fornitore"
        SQLConnection.Close()
    End Sub