Hola
Bueno ya esta !!!, creo que he tardado menos haciendo el ejemplo que todo lo que llevamos escrito aquí. El código completo es el siguiente:
Código vb:
Ver originalOption Explicit
Public bd As New ADODB.Connection
Private Sub Combo1_Click()
Dim RegCiu As New ADODB.Recordset
Dim SQL As String
SQL = "Select ciudad from ciudad2 inner join provincias ON provincias.idprovincias = ciudad2.idprovincias WHERE provincias='" & Combo1.Text & "'"
RegCiu.Open SQL, bd
Combo2.Clear
While Not RegCiu.EOF
Combo2.AddItem RegCiu.Fields(0)
RegCiu.MoveNext
Wend
End Sub
Private Sub Form_Load()
Dim RegProv As New ADODB.Recordset
Dim Cadena As String
Cadena = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "/Prueba.mdb;Persist Security Info=False"
bd.Open Cadena
RegProv.Open "Select provincias from Provincias", bd, adOpenDynamic, adLockReadOnly
While Not RegProv.EOF
Combo1.AddItem RegProv.Fields(0)
RegProv.MoveNext
Wend
End Sub
Añado el ejemplo comprimido por si lo quieres ver en:
http://www.megaupload.com/?d=PECP4E3G
Si tienes alguna duda (no he añadido comentarios) me lo dices, aunque creo que esta muy reducido y claro. Puede que tuvieses el problema con la sentencia SQL, revisa el manual de las sentencias Select con dos tablas o más (inner join)
--Saludos--