Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
       Dim connectionstring As String = _
               "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\text.xls;Extended Properties=Excel 8.0;"


       Dim con As New OleDb.OleDbConnection(connectionstring)
       Dim cmdselect As New OleDb.OleDbCommand("select * from [лист1$]", con)
       Dim adapter As New OleDb.OleDbDataAdapter(cmdselect)
       Dim ds As New DataSet
       con.Open()
       adapter.Fill(ds, "лист1")

       con.Close()

       grid.DataSource = ds.Tables("лист1")
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button2.Click
       Dim oExcel As Object
       Dim oBook As Object
       Dim oSheet As Object

       oExcel = CreateObject("Excel.Application.12")
       oExcel.visible = True
       oBook = oExcel.Workbooks.Add()

       oSheet = oBook.Worksheets( 1 )
       Dim i As Object
       Dim j As Object



       For j =  1  To TextBox61.Text - TextBox121.Text
           Label6.Text = TextBox61.Text - TextBox121.Text



           'For i = 0 To 1
           oSheet.Range("B" & j).Value = TextBox41.Text & "-" &
TextBox101.Text & "-" & TextBox121.Text + j
           ' Next i

       Next j
       '''''''''''''''''''''
       Dim number1 As Object = TextBox41.Text

       Dim number2 As Object = TextBox61.Text


       For j = 1 To TextBox61.Text - TextBox121.Text

           oSheet.Range("A" & j).Value = TextBox2.Text

       Next j

       '''''''''''''''''''''''

       For j =  1  To TextBox61.Text - TextBox121.Text

           oSheet.Range("C" & j).Value = TextBox81.Text

       Next












       '''''''''''''''''''''''''''''''''''''''''''''

       For j = TextBox61.Text - TextBox121.Text + 1 To TextBox60.Text
- TextBox120.Text
           Label7.Text = TextBox60.Text - TextBox120.Text


           For i = 1 To 30



               oSheet.Range("B" & j).Value = TextBox40.Text & "-" &
TextBox100.Text & "-" & TextBox120.Text + i

           Next
       Next
       '''''''''''''''''''''



       For j = TextBox61.Text - TextBox121.Text +  1  To TextBox60.Text
- TextBox120.Text

           oSheet.Range("A" & j).Value = TextBox3.Text

       Next j

       '''''''''''''''''''''''

       For j = TextBox61.Text - TextBox121.Text +  1  To TextBox60.Text
- TextBox120.Text

           oSheet.Range("C" & j).Value = TextBox80.Text

       Next


       MsgBox("Успешно выполнено", vbSystemModal)



       oExcel = Nothing


   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button3.Click
       Dim filial As String = _
       TextBox1.Text
       ComboBox1.Items.Add("Роза")
       ComboBox1.Items.Add("Тюльпан")
       ComboBox1.Items.Add("Гладиолус")
       ComboBox1.Items.Add("Магнолия")
       ComboBox1.Items.Add(filial)

   End Sub



End Class