代理为什么的得不到域值(b/s)？

情况只这样的：A数据库的一个表单b，其中有个文本域c（可编辑），缺省值为：0，在打开b表单时（b/s）显示值为0，或打开这个表单运行代理，也可以得到当前这个表单（b）的文本域c的值为0。但，我在一个视图里去显示这个域值却没有值。

如果在另一个数据库d运行一个代理去得到A库b表单的文本域c的值也是为空？

我不知道这个是什么原因？
代理代码如下：
Sub Initialize

Dim d,a As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
dim dbname as string
dim msg2 as string

dbname="a.nsf"

Set d = session.CurrentDatabase
Set a = New NotesDatabase( db.server, dbname )
Set collection =a.AllDocuments
Set doc =collection.GetFirstDocument()
While Not(doc Is Nothing)
If doc.form(0)="b" Then
msg2=doc.c(0)

Msgbox msg2

End If
Set doc= collection.GetNextDocument(doc)
Wend
End Sub

显示msg2的值都为空？