Imports IBM.Data.DB2.iSeries

Public Class Form1

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Application.Exit()
    End Sub

    Private Sub cboTest_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboTest.SelectedValueChanged

        lblSelectedItem.Text = cboTest.SelectedValue.ToString()

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Using cn As New iDB2Connection("DataSource=S103D64G;UserID=QUSER;Password=QUSER;")
            cn.Open()

            Using cmd As iDB2Command = cn.CreateCommand()
                cmd.CommandText = "call aspnet.sp_qcustcdt()"

                Using da As New iDB2DataAdapter(cmd)
                    Using ds As New DataSet

                        da.Fill(ds)

                        cboTest.DataSource = ds.Tables(0)
                        cboTest.DisplayMember = ds.Tables(0).Columns("CUSNUM").ToString()
                        cboTest.ValueMember = ds.Tables(0).Columns("LSTNAM").ToString()
                    End Using
                End Using
            End Using
        End Using

        lblSelectedItem.Text = String.Empty

    End Sub
End Class