教室的英语怎么读:缺少对象问题

Public Function Execute(Command)
If Not IsObject(Conn) Then Connect()
If IsDeBug = 0 Then
'On Error Resume Next
Set Execute = Conn.Execute(Command)
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "查询数据的时候发现错误，请检查您的查询代码是否正确。"
esponse.End
End If
SqlDateTime = SqlDateTime + 1
Else
If ShowSQL = 1 Then
Response.Write Command & "<br>"
Response.End
End If
End If
End Function

上面代码我看着应该没问题，但运行SQL提示我
缺少对象: Conn
也就是 If Not IsObject(Conn) Then Connect()
没有起作用
可如果我将 If Not IsObject(Conn) Then Connect()放在sql语句上面就没问题，这是为什么啊
Sub Connect()
Dim ConnStr
If dbType = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
ElseIf dbType = 0 Then
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(dbPath)
Else
Response.Write "数据库连接出错，请检查连接字符串。"
End If
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字符串。"
Response.End
End If
End Sub