如何从函数返回数据库连接?

我有一行设置了这样的数据库连接:

set m_conn=OpenConn()

我相信 OpenConn()

function OpenConn()

dim conn
set conn = server.CreateObject("adodb.connection")
conn.open "XXXXconnection-stringXXXXX"  
OpenConn = conn

end function

当我试图运行原始行时 set m_conn=OpenConn()

Microsoft VBScript runtime error '800a01a8' 

Object required: '[string: "Provider=SQLOLEDB.1;"]' 

/path/to/include.asp, line 50 

我不太清楚这种语法是如何工作的。通常,我在C#下工作,但是当我需要在ASP中执行这样的操作时,我会使用这样的语法:

set conn = server.createobject("adodb.conection")
conn.activeconnection = "connectionstring"
conn.execute "sql"
set conn = nothing

不管怎样,我正在寻找正确的语法 开放连接() 以便 将正常工作。

谢谢你的帮助。