How Do I Label a Mounted Volume?

[Kenji]

I'm mounting a server on my computer with VBA code. I was wondering how I
can label the mount?

Right now

test = MacScript("tell application ""Finder""" & vbCr & _
"if not exists ""xdb"" then" & vbCr & _
"Mount Volume "http://www.server.com/xdb"" & "
as user name ""john"" with password ""smith""" & vbCr & _
"end if" & vbCr & _
"end tell")

gives me a label called "xdb"

Thanks for any tips.

Kenji