Visual Basic - no coinciden los tipos

en la consulta que estoy haciendo ejecuto el siguiente codigo:

Dim bd As Database
Dim rs As Recordset


Set bd = OpenDatabase("C:\Program Files\GestionPolicia\Policia.mdb")

Set rs = bd.OpenRecordset("Select Sum(horas) From tblHORASEXTRAS where [año] ='" &
--------------------------------------------------------------------------------------------------------------------------
Text1.Text & "' AND [MES]= '" & Text2.Text & "'", dbOpenDynaset)
--------------------------------------------------------------------------------------
Data1.RecordSource = "SELECT * FROM tblHORASEXTRAS WHERE [AÑO] = '" & Text1.Text & "' AND [MES]= '" & Text2.Text & "' ORDER BY FECHA"

Text3.Text = rs.Fields(0)

me da el siguiente error en el codigo subrayado "no coinciden los tipos"

espero que alguien me puede ayudar, me estoy volviendo loco, ya que la consulta me estaba funcionando bien, todo ha sido al cambiar al sistema operativo vista. un saludo.

Si tu campo es Númerico entonces se guarda así: 20 y no así '20'