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
