asp添加数据的参数化写法

Public Function Add()
Dim strType
strType = 0
Set Cmd = Server.CreateObject("ADODB.Command")
oSQL = "InSert Into [HL_News](ClassId,title) Values(?,?)"
With Cmd
.ActiveConnection = Conn
.CommandType = 1
.CommandText = oSQL
.Prepared = True
.Parameters(0).Value = sNewsClassId
.Parameters(1).Value = sNewsTitle   
.Execute strType
End With
Set Cmd = Nothing
Add = strType
End Function