Lotus Notes - Problemas con bucles

Hola a todos. Estoy haciendo un boton que me permita contar los documentos que existen en un vista. Estoy usando el siguiente código:

Dim view As NotesView
Dim doc As NotesDocument
Dim count As Integer
Dim currentdb As NotesDatabase

Set currentdb = Session.Currentdb
Set view = db.GetView( "Pruebita" )
Set doc = view.GetFirstDocument
count = 0

' begin counting documents
' stop when there are no more documents
Do Until doc Is Nothing
count = count + 1
Set doc = view.GetNextDocument( doc )
Loop
Messagebox( count )

Pero siempre me sale Variant does not content an object

He cambiado tambien
Set currentdb = Session.Currentdb
por Set db = New NotesDatabase( "", "Prueba.nsf" ) pero me sigue saliendo el mismo problema.

Que es lo que estoy haciendo mal. O en donde es que esta fallando.

Pueba con este código:

Dim ns As New NOTESSESSION
Dim view As NotesView
Dim doc As NotesDocument
Dim bd As NotesDatabase
Dim session As New Notessession
Set nws=New notesuiworkspace
Set ndb =ns.currentdatabase
Set nuid=nws.currentdocument
Set view = ndb.GetView("nombre_de_la_vista")
Set doc = view.GetFirstDocument
registro = 1
Do While Not (doc Is Nothing)
registro = registro + 1
Print "registro no.:"+Str(registro)
Set doc = View.GetNextDocument(doc)
Loop
Print "Proceso Terminado."

Muchas Gracias . Funcionó correctamente. Tengo otra inquietud. Ahora necesito con este mismo código poder imprimir el contenido de uno de los campos de la vista. Como soy nueva en esto no se como hacerlo. Tengo un solo campo en mi vista y necesito que se imprima el contenido de este.