ใครพอมีตัวอย่าโค้ด เมื่อเลือก combobox จะโชว์ข้อมูล (windows app...)

Dim strConn As String
        strConn = DBConnString.strConn

        Conn = New OleDbConnection()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

        sb1 = New StringBuilder()
        sb1.Append("SELECT * FROM tb_respon;")
        Dim sqlrespon As String
        sqlrespon = sb1.ToString()
        Com = New OleDbCommand()
        With Com
            .CommandText = sqlrespon
            .CommandType = CommandType.Text
            .Connection = Conn
            dr1 = .ExecuteReader()
        End With
        If dr1.HasRows Then
            dtrespon = New DataTable()
            dtrespon.Load(dr1)
            With cb_rsp
                .BeginUpdate()
                .DisplayMember = "name_rpn"
                .ValueMember = "id_rpn"
                .DataSource = dtrespon
                .EndUpdate()
            End With
        End If