Llamar un Combo apartir de Otro

[Erick21]

Holas , mi problema es el siguiente tengo dos tablas "Productos_Terminados" y
"Categorias_Productos"
lo que necesito es listar los Productos de Acuerdo ala categorias , estoy trabajando en Capas y Procedimientos almacenados los cuales son :

create Procedure sp_Productos_porCategorias
@xIdCate as int
as
select [Producto/Complemento] From Productos_Terminados
where IdCategoriaPro = @xIdCate
---Me Lista los PRoductos de acuerdo al IDcategoria

create Procedure usp_Listar_CatePro
as
Select IdCatePro,Nombre_CatePro From Categorias_Productos
---Lista las Categorias para el Combo

En mi Capa de Negocio tengo la Siguiente Funcion :

Public Function getVentas(ByVal vCodigo As Integer) As DataSet
Try
Dim cn As New SqlConnection(conex)
Dim Dap As New SqlDataAdapter("usp_Listar_CatePro", cn)
Dim Dst As New DataSet
Dap.Fill(Dst, "tCatePro")
Dap.SelectCommand.CommandText = "sp_Productos_porCategorias"
Dap.Fill(Dst, "tCatePro")
Dap.Fill(Dst, "tProductos")
With Dap.SelectCommand
.CommandType = CommandType.StoredProcedure
.Parameters.Add(New SqlParameter("@xIdCate", SqlDbType.Int)).Value = vCodigo
End With
Return Dst
Catch ex As Exception
MsgBox("Error:" & ex.Message, MsgBoxStyle.Critical, "Alerta")
End Try
End Function

ahora en mi capa de Presentacion :
Public objxt As New ClsNuevaVenta

Private Sub LlenarCombos()
With cbocatepro
.DataSource = objxt.getVentas(vCodigo).Tables("tProductos")
.DisplayMember = "Nombre_CatePro"
.ValueMember = "IdCatePro"

End With

el Problema es que no se como puedo unir ( vCodigo ) al comboCategoria para que me muestre la lista de los Productos en el otro comboProductos . gracias de antemano