Visual Basic - Error 91 con Base Protegida

Hola a todos,
estoy haciendo una aplicación que consiste en coordinar VB con una b.datos access (Dao), la base tiene contraseña
las tablas se abren bien, el problema es que se me cae en la siguiente instrucción:

If Not Data1.Recordset.EOF Then

Con el sgte. mensaje:

"Error '91' en tiempo de ejecución:
Variable de tipo Object o la variable de bloque With no está establecida"

Por fa, respondame alguien que sepa lo que pasa.

Gracias.

eeeiiii
ese error d k sin With suele dar kuando aces referencia algun objeto o variable kn no sta bien definida o ke ese objeto no puede utilizar l metodo ke tu le as dixo.

prueba en lugar d ponerle Not, ponle data1.eof <> True

JUERRRR!!! me akabo d empanar!! juer xk pones Data1.REcorset!!!! data1 es dl tipo connection o dl tipo recorset!!! si s dl tipo recorset no te ace falta specificar Data1.recorset.oef <--- YO DIRIA KE EL ERROR T L DA X PONER "recorset".
Te lo digo xk yo tb stoy trab kn ls obj ADODB jiijji xa abrir bbdd y mi me va d PM :P
enga, suerte

Hola y gracias por darme bola

solucione el problema, así quedo el codigo:
------------------------------------
Set nC = db.OpenRecordset("Select ncliente From Comuna ORDER BY ncliente", dbOpenDynaset)

If db.Recordsets.Count > 1 Then
If Not IsNull(nC(0)) Then
nC.MoveLast
Text1.Text = nC(0) + 1
Else
Text1.Text = vaCont
End If
Else
Text1.Text = 1
End If

Close All

------------------------------------------
tenías razón con lo de Data, creo q no tenía pa q ponerla
y en su lugar puse

if db.Recordsets.Count > 1 then

porq si no ponía algo me decía "No hay ningun registro activo....."

Dime si estoy en lo correcto porfa

salu2 y gracias.