Hola
Depende de donde tengas los datos, si los tienes en una BD, con una consulta SQL en un recordset y luego recorrerla llenando el 2º combo.
Si no los tienes guardados en ningún sitio, no te queda mas remedio que con un select case ir añadiéndolos al combo de uno en uno
Código vb:
Ver originalPrivate Sub Combo1_Click()
Select Case Combo1.text
Case "Provincia1"
combo2.clear
Combo2.additem "Pueblo1"
Combo2.additem "Pueblo2"
Combo2.additem "Pueblon"
Case "Provincia2"
...
End Select
--Saludos--