Datos de combo a combo

[Sergio18]

He echo esto pero me da error:

Código vb:

Set rsCiudad2 = New Recordset
'Establecer sus propiedades
    With rsCiudad2
        .Source = "select ciudad from ciudad2 where provincias = '" & Combo1.Text & "'"
        .ActiveConnection = cnPrueba
        .LockType = adLockOptimistic
    End With
***rsCiudad2.Open Options:=adCmdText***
'Añadimos la tabla de ciudad al combo1
    Do Until rsCiudad2.EOF()
    Combo1.AddItem rsCiudad2!ciudad
    rsCiudad2.MoveNext
    Loop
 

Me señala el objeto marcado y dice: No se han espicificado valores para algunos de los parametros requeridos

saludos