Datos de combo a combo

[Sergio18]

Me sigue dando error pero ahora (en lo marcado):

Código vb:

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