在Set Conn这一行运行提示“实时错误‘424’，要求对象” 。怎么办？

Question

Private Sub Form_Load()
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set Conn = server.CreateObject("ADODB.Connection") '----此处变黄。“要求对象”
Set rs = server.CreateObject("adodb.recordset")
Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Conn.Open "Provider=SQLOLEDB.1;Password=; Persist Security Info=True;User ID=sa;Initial Catalog=weilecture;Data Source=(local)"
End SubPrivate Sub Command1_Click()
For i = 1 To 5
sql1 = "select top 1 timubiaoti,timudaan,chapter,tixing from bjtutimubase where tixing='简答题'  and chapter='" & Str(f(i)) & "'  and kecheng='" & strKecheng & "' order by newid()"rs.Open sql1, Conn, 1, 1
rs.Close
Set rs = Nothing
Next
Conn.CloseSet Conn = Nothing
End Sub请大家帮忙看看！
焦头烂额。试了一些改法，但仍显示此错误。完全不知怎么改。
不然，我的系统就夭折在这个问题上了。

Answer 1

把這兩行去掉
Set Conn = server.CreateObject("ADODB.Connection") '----此处变黄。“要求对象”
Set rs = server.CreateObject("adodb.recordset")

Answer 2

VB中，没有server对象，这样肯定不行，Set Conn = server.CreateObject("ADODB.Connection")改成这样也可以：Set Conn = CreateObject("ADODB.Connection")ASP中有server对象

Answer 3

Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set Conn = server.CreateObject("ADODB.Connection") '----此处变黄。“要求对象”
Set rs = server.CreateObject("adodb.recordset")顺序应该是这样吧！

Answer 4

Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
应该这样定义变量

Answer 5

楼主有意思，Set rs = New ADODB.Recordset
这是在定义变量吗？

Answer 6

撇开是否有 server 对象不谈，CreateObject 与 New 重复，简单地将 CreateObject 语句删除就可以了

Answer 7

我一般这样
Set Conn = new ADODB.Connection
Set rs = new adodb.recordset

Answer 8

应该这样写
Set Conn = new ADODB.Connection
Set rs = new adodb.recordset

Answer 9

把 server  去掉

Answer 10

Private Sub Form_Load()
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set Conn = CreateObject("ADODB.Connection") '----此处变黄。“要求对象”
Set rs = CreateObject("adodb.recordset")
'Set Conn = New ADODB.Connection
'Set rs = New ADODB.Recordset
Conn.Open "Provider=SQLOLEDB.1;Password=; Persist Security Info=True;User ID=sa;Initial Catalog=weilecture;Data Source=(local)"
End Sub