Problemer med en function.

Jeg kan ikke helt får det her til at virke... forslag?

--- function.asp
<%
Dim objConn
Dim objRS
Dim strSQL
Dim strDatabaseSti

Function AabenDatabase(strDatabaseSti, strSQL)
    Set objConn = Server.CreateObject(\"ADODB.Connection\")
    objConn.Open(\"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(strDatabaseSti))
    Set objRS = objConn.Execute(strSQL)
End Function

Function LukDatabase
    objConn.Close
    Set objRS = Nothing
    Set objConn = Nothing
End Function
%>

---test.asp
<!--#include file=\"function.asp\" -->
<%
AabenDatabase(\"\\valheru\\db\\valheru.mdb\", \"SELECT SkillName FROM Skill ORDER BY SkillName\")
Response.Write (\"oRS(\"SkillName\").Value\")
%>

http://www24.brinkster.com/valheru/test.asp

Nogle der kan sige, hvorfor den giver denne fejlmeddelse?

Problemet ligger i Aabendatabase ved strSQL, for hvis jeg fjener denne del, virker lortet fint!