Visual Basic

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

If previous form = form1 then
execute cmd1
else if previous form = form3 then
execute cmd3
etc....