clases con ADO

[detective_jd]

hola a todos tengo el sgte problema en los modificar y en los listar con datagrid:

CÓDIGO EN EL MÓDULO DE CLASE:

Public Function modificararticulo(ByVal xnumero As Integer, xnombre As String, xprecio As Single, xcant As Integer)
Set rstarticulos = cnnADODB.Execute("Update articulos set nombrearticulo='" & xnombre & "',precioarticulo='" & xprecio & "',cantidadstock='" & xcant & "' where codigoarticulo = " & xnumero & "")
End Function

Public Sub cargardgdarticulos(ByVal dgd As DataGrid, ByVal xtextbox As String)
Set rstarticulos = cnnADODB.Execute("select * from articulos where nombrearticulo like '" & xtextbox & "%' order by nombrearticulo")
Set dgd.DataSource = rstarticulos
End Sub

CÓDIGO EN LOS FORMULARIOS:

frmarticulos:

objarticulos.cargardgdarticulos(ME.dgdarticulos ,ME.txtbuscararticulo.Text )

frmAMarticulos:

Private Sub cmdguardarcambios_Click()
If Me.txtnombrearticulo.Text = "" Then
MsgBox ("INGRESE EL NOMBRE DEL ARTÍCULO")
ElseIf Me.txtprecioarticulo.Text = "" Or Not IsNumeric(Me.txtprecioarticulo.Text) Then
MsgBox ("ASEGURESE DE INGRESAR BIEN EL PRECIO DEL ARTÍCULO")
ElseIf Me.txtcantidadstock.Text = "" Or Not IsNumeric(Me.txtcantidadstock.Text) Then
MsgBox ("ASEGURESE DE INGRESAR BIEN LA CANTIDAD DE STOCK DEL ARTÍCULO")
Else
If ACCION = "Modificar" Then
objarticulos.modificararticulo(Me.txtcodigoarticul o.Text, Me.txtnombrearticulo.Text, Me.txtprecioarticulo.Text, Me.txtcantidadstock.Text)
Call cmdvolver_Click
ElseIf ACCION = "Guardar" Then
If objarticulos.guardararticulo(Me.txtcodigoarticulo. Text, Me.txtnombrearticulo.Text, Me.txtprecioarticulo.Text, Me.txtcantidadstock.Text) = False Then
MsgBox ("El Artículo ya existe")
Me.txtnombrearticulo.Text = ""
Me.txtnombrearticulo.SetFocus
Else
Call cmdvolver_Click
End If
End If
End If
End Sub

y cuando pongo los métodos en los formularios me sale el error:

Se esperaba=

la verdad no sé que hacer, sí me pueden ayudar se los agradezco.