Visual Basic

Dim oXL As Excel.Application
       Dim oWB As Excel.Workbook
       Dim oSheet As Excel.Worksheet

       'Dim oRng As Excel.Range

       Try
           'Grab a running instance of Excel.
           oXL = Marshal.GetActiveObject("Excel.Application")
       Catch ex As Exception
           'If no instance exist then create a new one.
           oXL = New Excel.Application
       End Try

       'Start Excel and get Application object.
       If oXL Is Nothing Then
           Throw New Exception("The Excel libarary could not be loaded. " & _
               "You may have an incorrect version of Excel installed. " & _
               "Please consult your system administrator. The instantiation " & _
               "failed without an exception.")
       End If
       oXL.Visible = True

       'Get a new workbook.
       oWB = oXL.Workbooks.Add
       oSheet = oWB.ActiveSheet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim startdate As String = DateTimePicker1.Text
        Dim enddate As String = DateTimePicker2.Text

        Dim statement As String = "SELECT DICT_NAME FROM DS004T01 WHERE SYSTEM_PREFIX = 'VL' and TYPE_DATE >= '" + startdate + "' and type_date <= '" + enddate + "'"

        Dim cmd As Odbc.OdbcCommand
        Dim hl7reader As Odbc.OdbcDataReader
        Dim sql As String
        Dim tmp1 As String



        Dim conn As Odbc.OdbcConnection = New Odbc.OdbcConnection("driver={IBM DB2 ODBC DRIVER};Database=xxxx;hostname=xxx.xxx.xxx.xxx;port=xxxx;protocol=TCPIP; uid=xxxxxxx; pwd=xxxxxx")


        Try
            conn.Open()
            sql = statement
            cmd = New Odbc.OdbcCommand(sql, conn)

            hl7reader = cmd.ExecuteReader
            Do While hl7reader.Read
                tmp1 = hl7reader("dict_name")
                ComboBox1.Items.Add(tmp1)
            Loop
        Catch ex As Exception

            MsgBox("Error" & ex.Message)

        End Try
    End Sub