databas function

Nån som vet varför jag får problem med denna databasfunction

Function getDataAccess()
dim conn
set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=SQLOLEDB; server=10.64.67.37; database=ramses; UId=ramsesowner;Pwd=ramses"
getDataAccess = Conn.Open

end function

Jag får följande fel när jag kör koden.

Set lrsGroups = Server.CreateObject("ADODB.Recordset")
set Conn = Server.CreateObject("ADODB.Connection")
conn = getDataAccess()

set lrsGroups = Conn.Execute("SELECT xxxx,xxxx FROM xxx order by xxxx")

Varför får jag följande fel

Microsoft VBScript runtime error '800a01a8'
Object required: ''

Eftersom det är ett object som ska returneras ska det se ut så här där själva "funktionen" returneras:

[b]Set[/b] getDataAccess = Conn.Open

cya,
PatrikB

Varför skapar du set Conn = Server.CreateObject("ADODB.Connection") både i funktionen och utanför?

Du kan ta bort ovanstående rad utanför funktionen.

Jag har nu tagit hänsyn till ovanstående inlägg men får fortfarande och nu får jag följande fel.

Object required: 'conn.Open'

Jag har funktionen i en include fil kan det ställa till det?

vart kommer conn.Open från??
om den ligger i en inkluderingsfile eller inte spelar ingen roll.

cya,
PatrikB