yo crearia 2 metodos 1 para cada combobox algo asi.
Código vb:
Ver originalDim conn As New OleDbConnection() 'AQUI ESPECIFICA TU CADENA DE CONEXION A NIVEL DE CLASE
Public Function Datos() As DataTable
Dim dt As New DataTable()
Dim consulta As String = "SELECT * FROM local"
'consulta a la tabla paises
Dim comando As New OleDbCommand(consulta, conn)
Dim adap As New OleDbDataAdapter(comando)
adap.Fill(dt)
Return dt
End Function
Public Function Filtro(filtro As Integer) As DataTable
Dim dt As New DataTable()
Dim consulta As String = "SELECT FROM jefe where local = @filtro"
'consulta a la tabla paises
Dim comando As New OleDbCommand(consulta, conn)
comando.Parameters.AddWithValue("@filtro", filtro)
Dim adap As New OleDbDataAdapter(comando)
adap.Fill(dt)
Return dt
End Function
Como podes ver en la primera función obtienes todos los datos de la tabla local y en la segunda función obtienes los datos filtrados de la tabla jefe, en el código hago el filtro mediante el id si no es tu caso solo lo cambias.
Ahora en el evento
load del formulario cargas el primer combobox
Código vb:
Ver originalComboBox1.DataSource = Datos()
ComboBox1.DisplayMember = "Nombre" 'campo que queres mostrar
ComboBox1.ValueMember = "Id" 'campo que capturas
Ahora para llenar el segundo comobobox tienes que hacerlo en el
evento correspondiente del combobox1 que creo que seria en el
SelectedIndexChanged (no lo recuerdo muy bien)
Código vb:
Ver originalDim id As Integer = Convert.ToInt32(ComboBox1.SelectedValue)
ComboBox1.DataSource = Filtro(id)
ComboBox1.DisplayMember = "Nombre"
ComboBox1.ValueMember = "Id"
Prueba algo asi y cuentas si te funciono ya que no he probado el código lo hice al momento asi que nose si tiene errores.
Otra cosa si los datos filtrados que quieres mostrar en el segundo combobox son de la misma tabla que los del comobox1 te ahorrarias el segundo método ya que podrías filtrar los datos usando linq .