DataBase connection - funktion

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Function OpenPoSent()
Set PSDB = Server.CreateObject("ADODB.Connection")
PSDB.Open "Provider=sqloledb; Data Source=(local); Initial Catalog=PortSenLib; User Id=POSELC; Password=tester;"
End Function
</Script>
<%
Call OpenPoSent()
SQL = "SELECT LanID FROM TestDb order by LanguageVersion"
Set Lan = PSDB.Execute(SQL)
%>

Er der nogen der hurtigt kan se hvorfor ovenstående ikke virker ?


Den giver fejlen

Microsoft VBScript runtime error '800a01a8'

Object required: ''