Datos de combo a combo

[Sergio18]

Hola

He adaptado tu codigo para que se adapte al mio, la sentencia sql no me iba y la he cambiado 2 cosas y lo que hace es añadir las provincias de mede las ciudades, y he estado probando, otra combinaciones y o me salen las provincias o me da errores. Te pongo el codigo:

Código vb:

Private Sub Combo2_Click()
Dim idprovincia As Long
Set cnPrueba = New Connection
'Establecer sus propiedades
With cnPrueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnPrueba.Open
'Crear un conjunto de registros desde la tabla Ciudad2
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
    .CursorLocation = adUseClient
    .Open "Select ciudad from ciudad2 inner join provincias ON  provincias.provincias = ciudad2.ciudad WHERE provincias='" & Combo1.Text & "'", cnPrueba, adOpenDynamic, adLockOptimistic
End With
While Not rsCiudad2.EOF
    Combo2.AddItem rsCiudad2.Fields(0)
    rsCiudad2.MoveNext
Wend
End Sub
 
 
'ESTE ES EL DEL FORM LA CONEXION CON CNPRUEBA YA ESTA DECLARADA DE ANTES
 
Set rsCiudad2 = New Recordset
With rsCiudad2
    .CursorLocation = adUseClient
    .Open "Select provincias from Provincias", cnPrueba, adOpenDynamic, adLockOptimistic
End With
While Not rsCiudad2.EOF
    Combo1.AddItem rsCiudad2.Fields(0)
    rsCiudad2.MoveNext
Wend
 

Saludos y no sabes cuanto te agradezco que me ayudes tanto