ขอแนวทางการใช้ RadioButton เปลี่ยนแปลงข้อมูลใน Combobox ด้วยครับ

Private Sub rdin_CheckedChanged(sender As Object, e As EventArgs) Handles rdin.CheckedChanged

        ds = New DataSet
        dta = New SqlDataAdapter("select * from tb_categoryin", con)
        dta.Fill(ds, "tb_categoryin")
        With cbocategory
            .DisplayMember = "Description"
            .ValueMember = "Categoryin_ID"
            .DataSource = ds.Tables("tb_categoryin")
        End With

    End Sub

    Private Sub rdout_CheckedChanged(sender As Object, e As EventArgs) Handles rdout.CheckedChanged

        ds = New DataSet
        dta = New SqlDataAdapter("select * from tb_categoryout", con)
        dta.Fill(ds, "tb_categoryout")
        With cbocategory
            .DisplayMember = "Description"
            .ValueMember = "Categoryout_ID"
            .DataSource = ds.Tables("tb_categoryout")
        End With

    End Sub