hey, tu ejemplo esta entendible aunque lo resolvi de otra forma, era mas facil de lo que imaginaba, hice lo siguiente:
Private Sub FrmRegistrar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Dreader As SqlClient.SqlDataReader
class_conexion.conexion()
Dreader = class_emp.llenarcargo()
While Dreader.Read
Me.cbo_cargo.Items.Add(Dreader("nb_cargo"))
cod_cargo = (Dreader("id_cargo"))
End While
Dim Dreader2 As SqlClient.SqlDataReader
Dreader2 = class_emp.llenarhorario()
While Dreader2.Read
Me.cbo_horario.Items.Add(Dreader2("nb_horario"))
cod_horario = (Dreader2("id_desc_horario"))
End While
Despues pase como parametros las variables cod_cargo y cod_horario, asi de simple, gracias por la ayuda de todos modos, ademas el ejemplo estaba entendible
Solucionado
Saludos