Private Function ReadItem() As Boolean

...

On Error Resume Next

Set oFile = oConn.brOpenFile(txtFileName.Text)

If oEnv.brError = 0 Then

sItemId = txtItem.Text

Set oItem = oFile.brReadVU(sItemId, "productname")

txtName.Text = oItem.brCString

ReadItem = True

Else

’ Polling brError

If oEnv.brError = d3SrvErr_Missing Then

txtStatus.Text = "File does not exist"

Else

txtStatus.Text = "Unidentified error"

End If

ReadItem = False

End If

Exit Function