Datos de combo a combo

[Sergio18]

Creo que te referias a esto no estoy muy seguro te pongo lo que he añadido:

Código vb:

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 idprovincia from ciudad2 where ciudad like '" & Combo2.Text & "'", cnPrueba, adOpenDynamic, adLockOptimistic
End With
'Añadimos la tabla de ciudad2 al combo1
Do Until rsCiudad2.EOF()
idprovincia = rsCiudad2.Fields(0)
Loop
rsCiudad2.Close
rsCiudad2.Open "select * from ciudad2 where idprovincia=" & idprovincia & "", cnPrueba, adOpenDynamic, adLockOptimistic
Combo1.AddItem rsCiudad2!ciudad
rsCiudad2.MoveNext
End Sub
 

El seguno select le he puesto una interrupcion y me ha dado valor 0 y me ha saltado un error : "El valor EOF es true o el actual registro se elimino, la operacion solicitada requiere un registro actual"

Saludos