Private Sub frmMaster_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim csOrder As New System.Windows.Forms.DataGridTextBoxColumn
            With csOrder
                .MappingName = "№ заказа"
                .HeaderText = "№ заказа"
                .Width =  60 
            End With
            Dim csCount As New System.Windows.Forms.DataGridTextBoxColumn
            With csCount
                .MappingName = "Кол-во"
                .HeaderText = "Кол-во"
                .Width =  40 
            End With
            Dim tsVarsEtik As New System.Windows.Forms.DataGridTableStyle
            With tsVarsEtik
                .MappingName = "VarsEtik"
                .DataGrid = Me.DataGrid3
                .GridColumnStyles.Add(csOrder)
                .GridColumnStyles.Add(csCount)
            End With
            Me.DataGrid3.TableStyles.Add(tsVarsEtik)
            Me.OleDbDataAdapter1.SelectCommand.Parameters( 0 ).Value = Date.Today
            Me.OleDbDataAdapter1.Fill(Me.DataSet11)
            Me.OleDbDataAdapter2.Fill(Me.DataSet11)
            Me.OleDbDataAdapter3.Fill(Me.DataSet21)
        Catch err As Exception
            MessageBox.Show(err.Message(), err.Source, MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
        End Try
End Sub