[Resolved] Annoying error trying to make functions from Database Connection code..

[alexdata]

Here is my "standard code for connecting to an DB, and get something from an Table/Column and then close" divided into three funcions.(big code below)
The thingy is that im gonna use these three seperate functions a lot, and i dont really wanna write all this code in each page im gonna use it in.
I really wanna be able to write this instead of the big code below:
EasyCode:

<!--#include file="FUNCTIONS.ASP"-->
<%
ConnectDB()
DoSomething(ToMyVariable) 'and process an SQL variable here ofcourse
CloseDB()
%>

But right now i get errors like:
ADODB.Recordset (0x800A0BB9)
/FUNCTIONS.ASP, linje 55

So here is my code, and my question, what is wrong???

BIG CODE: (Functions.asp)

<%@ LANGUAGE="VBSCRIPT" %>
 
<% Function ConnectDB()
Dim Connection    'Here we declare our variable that will hold our new object
Set Connection=Server.CreateObject("ADODB.Connection")
 
Dim sConnString  'Here we declare our variable that will hold the connection string
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("DB/database.mdb") 
 
Connection.Open sConnString 
End Function %>
 
 
 
 
<% Function DoSomething()
Dim Recordset    'Here we declare our variable that will hold our new object
Set Recordset=Server.CreateObject("ADODB.Recordset") 
 
Dim SQL    'Here we declare our variable that will hold the SQL statement
SQL="SELECT * FROM Produkter" 
 
Recordset.Open SQL, Connection
 
Do While NOT Recordset.Eof   'i.e. carry on looping through while there are records
Response.write Recordset("Varenavn")
Response.write "<br>"    'include a line break
Recordset.MoveNext     'move on to the next record
Loop
End Function %>
 
 
 
 
<% Function CloseDB()
Recordset.Close
Set Recordset=Nothing
Connection.Close
Set Connection=Nothing
End Function %>