No coinciden los tipos

[ruudy]

Ando liado con el proyecto de fin de modulo y he llegado a un punto que no entiendo porque me da el error:

Dim dni
Dim opcion
Dim texto As String
Dim texto2 As String
Dim db As Database
Dim resultado
Dim resultado2
Set db = CurrentDb()

dni = dni_persona.Value
opcion = id_vivienda.Value

texto = "select count(pv.dni_persona) from personas_vivienda pv where pv.id_vivienda = " & opcion & ";"
Set resultado = CurrentDb.OpenRecordset(texto, dbOpenDynaset)

texto2 = "select v.num_personas_vivienda from viviendas v where v.id_vivienda = " & opcion & ";"
Set resultado2 = CurrentDb.OpenRecordset(texto2, dbOpenDynaset)

If resultado = resultado2 Then


He probado especificando:

Dim resultado as integer
Dim resultado2 as integer

Pero nada...
¿Podeis ayudarme por favor? Yo soy mas de C y en VB ando justito ^^ y si es rapido mejor que se me agota el tiempo para terminarlo.

Muchas gracias

PD: El error lo marca en la condicion del if