clases con ADO

[detective_jd]

hola Kruzado, gracias x responder, solucioné el problema el modificar está cómo procedimiento o sea sub:

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

o sea en el formulario se declara así:

If ACCION = "Modificar" Then
objarticulos.modificararticulo Me.txtcodigoarticulo.Text, Me.txtnombrearticulo.Text, Me.txtprecioarticulo.Text, Me.txtcantidadstock.Text

lo mismo pasa con el mostrar es un procedimiento:

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
Call diseñardgdarticulos(dgd)
End Sub

por lo tanto en el formulario:

objarticulos.cargardgdarticulos Me.dgdarticulos, Me.txtbuscararticulo.Text

Como en vb.net uso clases pensé q en vb 6.0 también podía y puse a investigar y está pronto.
Gracias x tu ayuda.