Hola
Creo que la linea de la select no es correcta
Cita: .Open "select ciudad from ciudad2 where idprovincia = '" & Combo2.Text & "', cnPrueba, adOpenDynamic, adLockOptimistic"
Debería de ser:
Código vb:
Ver original.Open "select ciudad from ciudad2 where idprovincia = '" & Combo2.Text & "'", cnPrueba, adOpenDynamic, adLockOptimistic
Es decir, después de la comilla simple tienes que poner las dobles comillas, y no después del adLockOptimistic
P.D.: Casi me quedo ciego revisando el código, espero que sea de esto
--Saludos--