Error '2147217913(80040E07)' No coinciden los tipos de datos en la expresión...

[agos_00_15]

Hola a todos! Necesito una ayuda ya q no me estaria dando cuenta donde esta el error...

En el modulo del proyecto escribi esto:

Public Sub MegasyMontos()
Dim precios As New ADODB.Recordset
UnoMegas = 0
UnoAbono = 0
DosMegas = 0
DosAbono = 0
TresMegas = 0
TresAbono = 0

Set precios.ActiveConnection = a
precios.Open "Select * from SERVICIO WHERE id_servicio = '1'", a, adOpenDynamic, adLockOptimistic
UnoMegas = precios!MEGAS
UnoAbono = precios!ABONO
Set precios = Nothing
precios.Open "Select * from servicio WHERE id_servicio = '2'", a, adOpenDynamic, adLockOptimistic
DosMegas = precios!MEGAS
DosMegas = precios!ABONO
Set precios = Nothing
precios.Open "Select * from servicio WHERE id_servicio = '3'", a, adOpenDynamic, adLockOptimistic
TresMegas = precios!MEGAS
TresAbono = precios!ABONO
Set precios = Nothing
End Sub

Pero me salta un error en la linea roja, que puede ser?
Gracias de antemano