VB.NET Combobox gets values from SQL Database

Imports System.Windows.Forms.ComboBox
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop
Imports System.Drawing
Imports System.IO
Imports System.Data.Common
Imports System.Data.OleDb
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Imports System.Drawing.Drawing2D
Imports System.Drawing.Printing
Imports System.Data.SqlClient
 
 
Public Class frmClApps1
    Dim oExcel As Excel.Application
 
 
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBrowse.Click
        Dim cn As ADODB.Connection
        Dim rst As ADODB.Recordset
        Dim strSQL As String
        Dim lngRecsAff As Long
        Dim rsPubs As ADODB.Recordset
        Dim objSaveFileDialog As New SaveFileDialog
 
 
        'Opening SQL Database connection
        cn = New ADODB.Connection
        cn.Open("Provider=SQLOLEDB;Data Source=Test;" & _
            "Initial Catalog=Apps;User ID=Admin;Password=")
 
 
        Using oExcel As New OpenFileDialog
            oExcel.Title = "Open File Dialog"
            oExcel.InitialDirectory = "c:\"
            oExcel.Filter = "Excel files (*.xls)|*.xls*"
            oExcel.FilterIndex = 2
            oExcel.RestoreDirectory = True
 
            If oExcel.ShowDialog() = Windows.Forms.DialogResult.OK Then
                strSQL = "SELECT * INTO Data FROM " & _
                "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
                "'Data Source=" & _
                 oExcel.FileName & _
                 ";" & _
                "Extended Properties=Excel 8.0')...[Data$]WHERE Department LIKE '%Support%'"
                ' Debug.Print(strSQL)
 
                With cn
                    'Drops the existing Table
                    .Execute("DROP TABLE Data")
                    .Execute(strSQL, lngRecsAff, ADODB.ExecuteOptionEnum.adExecuteNoRecords)
                    .Execute("ALTER TABLE Data ADD JobFunction varchar(50),Segment varchar(5)")
                    .Execute("dbo.sp_UpdateSegment")
                    .Execute("dbo.sp_UpdateData")
                End With
            End If
        End Using
 
 
 
 
        ' Create a recordset object.
        rsPubs = New ADODB.Recordset
        With rsPubs
            ' Assign the Connection object.
            .ActiveConnection = cn
            'Extract the required records.
            .Open("SELECT [Project Name],MIN([TASK Name]),JOBFunction" & _
                " from Data" & _
               " Where segment ='IT' " & _
               " GROUP BY [Project name],[TASK Name],JobFunction" & _
               " ORDER BY JOBFunction")
 
            ' Copy the records into cell A1 on Sheet1.
            ' Create the Excel application.
            oExcel = CreateObject("Excel.Application")
            oExcel.Visible = False
            oExcel.Workbooks.Add()
 
            With oExcel.Worksheets("Sheet1")
                .Range("A2").CopyFromRecordset(rsPubs)
                .Range("A1") = "Project Name"
                .Range("B1") = "Task Name"
                .Range("C1") = "Mapped To"
                .Range("A1:C1").Font.Bold = True
                .Columns("A:Z").AutoFit()
            End With
 
            'Tidy(up)
            .Close()
        End With
 
        With rsPubs
 
            ' Extract the required records.
            .Open("SELECT JOBFunction, SUM(HOURS)as [Total Hours] from Data" & _
           " WHERE Segment ='IB' " & _
           " GROUP BY JobFUnction")
            With oExcel.Worksheets("Sheet2")
                .Range("A2").CopyFromRecordset(rsPubs)
                .Range("A1") = "Job Funtion"
                .Range("B1") = "Total Hours"
                .Range("A1:B1").Font.Bold = True
                .Columns("A:Z").AutoFit()
            End With
 
            ' Tidy up
            .Close()
        End With
 
        cn.Close()
        cn = Nothing
        PieChart()
 
        oExcel.Visible = True
 
 
    End Sub
 
    Sub PieChart()
 
 
        With (oExcel.Worksheets("sheet2").ChartObjects.Add(Left:=100, Width:=375, Top:=150, Height:=225))
            .Chart.SetSourceData(Source:=oExcel.Worksheets("Sheet2").Range("A2:B6"))
            .Chart.ChartType = Excel.XlChartType.xl3DPieExploded
            .Chart.ApplyLayout(1)
 
        End With
 
        With oExcel.Worksheets("sheet2").ChartObjects(1).Chart
            .HasTitle = True
            .ChartTitle.Text = "Apps"
        End With
        oExcel.Worksheets("sheet2").Name = "dash by team"
        oExcel.Worksheets("sheet1").Name = "Summary by Group"
 
    End Sub
 
 
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Verify the cancel
        Dim result As DialogResult = MessageBox.Show("Are you sure you want to quit?", "Confirm Operation", MessageBoxButtons.YesNo)
        If result = DialogResult.Yes Then
            Me.Close()
        End If
 
    End Sub
                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158: