Visual Basic - 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...

Hola, a mi me pasó en una aplicación y lo arreglé con un apaño, te lo pongon a continuación:


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
If DATA1.Recordset.EOF Then
DATA1.Recordset.MoveLast
Exit Sub
End If
Loop
End
End Sub

Gracias, pero fijate que me sigue dando del mismo problema.... y en la misma linea ("DATA1.Recordset.MoveFirst")

Hola, he estado haciendo una prueba y creo que la solución es una tontería: Una vez definido el recordsource hay que refrescarlo para que se cargue.

DATA1.DatabaseName = App.Path + "\data\datos.mdb"
DATA1.RecordSource = "C_PCnodisponible"
data1.refresh

Lo he probado y me ha funcionado.
Un saludo.

explicame lo que estas haciendo no entiendo me mandas un imail a mi correo mejor

Esperanza... Muchisimas gracias por tu ayuda, fijate que si funciona o se soluciona el problema haciendo el refresh del data.....

Gracias nuevamente...