Dim site as new SPsite(ServerUrl)
Dim web as site.openweb()
Dim list as Splist = web.lists(ListName)
Dim item as SPlistItem = list.items.add()
Item("hyperlinkField") = stringURL +", "+stringDescription
item.update()
重要的是一个逗号加一个空格
另外一种方法
Dim linkurl as new spfieldurlvalue
linkurl.description= "whatever"
linkurl.url = yourURL.tostring()
item("hyperlinkfield") =linkurl
item.update()
url一定要是绝对地址，不可相对地址