Visual Basic para Aplicaciones - URGENTE:::Este es un verdadero RETO!!!

Esto creo que esta medio raro, espero que alguienme pueda ayudar...

En Visual basic 6.0 me marca el siguiente error:

-----------
Error '91' en tiempo de ejecución:
Variable de tipo OBJECT o la variable de bloque WITH no esta establecida
-----------

Siendo el siguiente el unico procedimiento que existe en el programa:

-------------------------------------------------------------------------------------
Private Sub LIMPIA()
'/*/ Asigna el Nombre de la base de datos y la tabla para el data de las PC
DATA1.DatabaseName = App.Path + "\data\datos.mdb"
DATA1.RecordSource = "C_PCnodisponible"
DATA1.Recordset.MoveFirst
Do While Not DATA1.Recordset.EOF
If DATA1.Recordset.Fields("Activa") = "-" Then
DATA1.Recordset.Edit
DATA1.Recordset.Fields("Activa") = "+"
DATA1.Recordset.Update
End If
DATA1.Recordset.MoveNext
Loop
End
End Sub
-------------------------------------------------------------------------------------

De antemano les digo gracias...

lo que pasa es que en ningun momento abris la base de datos... y la estas accediendo..

te escribi algo en tu e-mail creo que puede ser lo que necesitas.