D'abord tu dois ecrire la requete dans combobox 1(on double cliquant sur combo1), par exemple:
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Dim command As OleDbCommand
Dim cnx As OleDbConnection
Dim dr As OleDbDataReader
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
command = New OleDbCommand("select champ1 from table where champ='" & ComboBox1.Text & "'", cnx)
dr = command.ExecuteReader
While dr.Read
ComboBox2.Items.Add(dr(0))
End While
dr.Close()
cnx.Close()
End Sub
End Class