Llenar un combo de acuerdo a los datos del 1 combo

Hola expertos quisiera saber si alguien sabe como llenar dos combos de acuerdo a los datos del primer combo. Mi primer combo es País, de acuerdo a la selección llenar el segundo con datos de las provincias y el tercer combo son las ciudades (llenarlo de acuerdo a las provincias)
Mi código en el evento load del formulario para llenar los combos es:
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
'País
With rs
.Open "select * from país ", DataEnvironment1.Connection1
End With
Do While Not rs.EOF
Combo3.AddItem rs.Fields(0)
rs.MoveNext
Loop
'Provincia
With rs2
.Open "SELECT Provincia.Provincia From Provincia, País WHERE Provincia.Pais = Pais.Pais", DataEnvironment1.Connection1
End With
Do While Not rs2.EOF
Combo2.AddItem rs2.Fields(0)
rs2.MoveNext
Loop
'Provincia
With rs3
.Open "SELECT Ciudad.Ciudad From ciudad WHERE " TextBoxM4.Text "= Ciudad.Provincia", DataEnvironment1.Connection1
End With
Do While Not rs3.EOF
Combo1.AddItem rs3.Fields(0)
rs3.MoveNext
Loop
pero no logro filtrarlos y me coloca todas las ciudadesen  el combo 3 sin importar cual sea la provincia elegida en el combo 2 y colocada en el textboxm4.
Alguien puede ayudarme!!!!!!