''对象的声明

　　Dim rp as Response
Public Sub OnStartPage(mysc as ScriptingContent)

　　 ''进行对象的实例化

　　 set rp=mysc.Response

End Sub
上面的set rp=mysc.Response 没有用到ＮＥＷ
有谁知道能不能给讲清楚啊，谢谢……

大侠：你好，我是新手，请问：我编的以下程序是否有错？跪谢！
Private Sub 修改信息_Click()
On Error GoTo Err_修改信息_Click
'定义用于循环的整型变量i
Dim I As Integer
'定义字符型变量 STemp
Dim STemp As String
'定义数据集变量Rs
Dim Rs As ADODB.Recordset
'未定义的数据集变量分配空间
Set Rs = New ADODB.Recordset
'为打开数据表的"查询语句"字符变量stemp赋值
STemp = "Select * Form 材料基础信息表"
'打开"材料基础信息表"数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'判断"材料ID"等文本框是否为空
If IsNull(Me![材料ID]) = True Then
'弹出提示"材料ID"文本框不能为空
MsgBox "请输入“材料ID”,该文本框不能为空!", vbOKOnly, "输入“材料ID”"
Me![材料ID].SetFocus
ElseIf IsNull(Me![材料名称]) = True Then
'弹出提示"材料名称"文本框不能为空
MsgBox "请输入“材料名称”,该文本框不能为空!", vbOKOnly, "输入“材料名称”"
Me![材料名称].SetFocus
ElseIf IsNull(Me![材料描述]) = True Then
'弹出提示"材料描述"文本框不能为空
MsgBox "请输入“材料描述”,该文本框不能为空!", vbOKOnly, "输入“材料描述”"
Me![材料描述].SetFocus
ElseIf IsNull(Me![资产代码]) = True Then
'弹出提示"资产代码"文本框不能为空
MsgBox "请输入“资产代码”,该文本框不能为空!", vbOKOnly, "输入“资产代码”"
Me![资产代码].SetFocus
MsgBox "请输入“材料类型”,该文本框不能为空!", vbOKOnly, "输入“材料类型”"
Me![材料类型].SetFocus
MsgBox "请输入“区域代码”,该文本框不能为空!", vbOKOnly, "输入“区域代码”"
Me![区域代码].SetFocus
Else
'将数据集指针指向第一条记录
Rs.MoveFirst
'使用FOR...NEXT循环在数据集中搜索相同"材料ID"的记录
For I = 1 To Rs.RecordCount
If Rs("材料ID") = Me![材料ID] Then
'修改"材料信息"数据表字段值
Rs("材料名称") = Me![材料名称]
Rs("材料描述") = Me![材料描述]
Rs("资产代码") = Me![资产代码]
Rs("材料类型") = Me![材料类型]
Rs("区域代码") = Me![区域代码]
'使用记录集的update方法来刷新新纪录集
Rs.Update
'弹出"修改完成"提示信息
MsgBox "材料基础信息表已经修改完成!", vbOKOnly, "修改完成"
'退出子程序
Exit Sub
Else
'将记录指针移动到下一记录
Rs.MoveNext
End If
Next I
End If
'刷新"材料基础信息表 子窗体"窗体
Me![材料基础信息表 子窗体].Requery
'释放系统为Rs数据集分配的空间
Set Rs = Nothing
Exit_修改信息_Click:
Exit Sub
Err_修改信息_Click:
MsgBox Err.Description
Resume Exit_修改信息_Click
End Sub