对象不支持此属性或方法: 'Value' 如何解决?请教大虾

运行程序时,提示:
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'Value'
DvADChar.asp，行 10


代码为:Dim AllPostTable
Dim AllPostTableName
Dim FoundErr
FoundErr=False
Dim ErrMsg
Dim Rs1,sql,i
Dvbbs.LoadTemplates("")
Set Rs1=Dvbbs.Execute("Select H_Content From Dv_Help Where H_ID=1")
template.value = Rs1(0)