下拉框的选项改变时触发别的控件显示的值改变

我想在一个下拉框的选项改变时一个文本框显示的值也随之动态改变，就想网页中的下拉框的联动那样，但我这个是程序，怎么实现，在SELECTCHANGED事件里试过，但报错为datarowview类型不能转换为STRING类型
在事件中是这么写的
 Dim dj As New 一类登记类
        dj.llxs(CBo_kcmc.SelectedValue)
        Label2.Text = shxs
类是这么写的
Public Sub llxs(ByVal str As String)
        Dim one As New orcl
        Dim a As String
        Try
            one.open()
            Dim cmd As New OracleCommand
            cmd = one.con.CreateCommand
             = "select xs from first1info where kno=:kno"
            cmd.Parameters.Add("kno", OracleType.Number).Value = str
            cmd.ExecuteNonQuery()
            a = cmd.ExecuteScalar
            shxs = a
        Catch ex As Exception
            MessageBox.Show("数据库设置错误！请返回数据库设置重置数据库信息或输入正确的数据库信息！", "年度业绩管理系统", MessageBoxButtons.OK, MessageBoxIcon.Hand)
        Finally
            one.close()
        End Try
我这样写当下拉框中的选项改变时就调用一次这个类查询出不同的数据不行么，shxs是全局变量用来传值