Typerne stemmer ikke overens

Lige en lille ting der undre mig....

Hvorfor virker følgende ikke ?

----------- Database.asp  start -----------
<%
MyServer = "localhost"
MyDB = "fhavnhs"
MyUser = "root"
MyPass= ""

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={mySQL};Server="&MyServer&";Port=3306;Option=131072;Stmt=;Database="&MyDB&";Uid="&MyUser&";Pwd="&MyPass&";"     

Function OpenDB(strSql)
    set OpenDB = conn.Execute(strSql)
End Function

Function CloseDB()
    Conn.Close
    Set Conn = Nothing
End Function 
%>
----------- Database.asp  Slut  -----------


----------- Bla.asp  start -----------
<!-- # include file="database.asp"-->
<%
set rs = OpenDB("Select * From users")
Do While not rs.Eof
    Response.write("Brugernavn : " & rs("brugernavn") & "<br>")
rs.movenext
loop
CloseDB()
%>
----------- Bla.asp  Slut  -----------



Den giver følgende fejl...
Typer stemmer ikke overens: 'OpenDB'

Synes det virker underligt, for den virker fint hvis det hele ligger i en fil....

Nogen ideer..??

/Anders