Visual Basic - recordset

quiero quietar las referencias de Microsoft DAO de mi lista de referncias del código, para poder operar bien con las referencias ADO. Cuando tengo las dos seleccionadas, me da problemas en el siguiente código:

Private Function Comprobar_Numero(N As Variant) As Boolean

Dim SqlTemp As String
Dim Base2 As Database
Dim RsTemp As Recordset

Set Base2 = CurrentDb


SqlTemp = "SELECT DISTINCT [OBRASARTE].[NUM]" _
& " FROM [OBRASARTE]" _
& " WHERE [OBRASARTE].[NUM] = " & N & ";"

Set RsTemp = Base2.OpenRecordset(SqlTemp)

If RsTemp.RecordCount >= 1 Then
Comprobar_Numero = True
Else
Comprobar_Numero = False
End If

RsTemp.Close
Base2.Close

End Function

Me dice que no me coinciden los tipos. Sé que es por el tema del objeto database, pero es q no sé cómo hacerlo, me gustaría saber cómo puedo hacer para abrir un recordset sin utilizar DAO. ¿Cómo puedo hacerlo?¿Tengo que hacer alguna referencia a alguna librería más? Venga muchas gracias.

y estas seguro de que el error no es de la base de datos??? probaste esa consulta en el motor que estes usando????

el fallo me ha pasado en diferentes bases de datos cuando utilizo un los componentes DAO y ADO juntos. Cuando desselecciono un de los dos componentes de las referencias, me funciona.

Se supone que si usas ADO no puedes utilizar lo de

set Base2=CurrentDb

o al menos eso me han dicho. Si alguien sabe algo que nos saque de dudas, pq igual es una tontería que estoy haciendo mal y me estoy complicando la existencia. Gracias por la respuesta Renzix.