Kald Acess-database funktion...

Jeg har prøvet at få det her ind i en funktion:

<%  ' Her oprettes forbindelsen 
Set DataConn = Server.CreateObject("ADODB.Connection") 
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" 
conStr = conStr & "Data Source=d:\webs\domæne.dk\database.mdb" 
DataConn.Open conStr   
SQL = "SELECT * FROM tabelnavn WHERE ID=1" 
Set Rs = DataConn.Execute(SQL) 
' KODE KODE KODE... og luk: 
DataConn.Close 
Set DataConn = Nothing
%>

----------------
Sådan her:
----------------

Function ConnectToDB(db,sql)
  Set DataConn = Server.CreateObject("ADODB.Connection") 
  conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" 
  conStr = conStr & "Data Source=d:\webs\domæne.dk\access\"&db&".mdb" 
  DataConn.Open conStr
  Set rs = DataConn.Execute(SQL)
end function

Function ChangeSQL(sql)
  Set rs = DataConn.Execute(SQL)
end function

Function CloseDB()
DataConn.Close 
Set DataConn = Nothing
End function

-----------------------

Som så skulle proppes ind i en include-fil, men jeg får en fejlmeddelese, når jeg kalder funktionen... hvad gør jeg galt?

Når jeg kalder sådan her:

ConnectToDB("data","user")
CloseDB()

får jeg fejl:

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

D:\WEBS\MOTE.DK\WWWROOT\MOTECHAT\ENTER\..\..\..\INCLUDE.ASP, line 125

ConnectToDB("data","user")
--------------------------^