Connect og disconnect funktion til access db (include)

Hej Alle,

Jeg er ved at lave en connect og disconnet funktion såldes at jeg kun skal kalde på dem når jeg skal bruge dem (connect og disconnect)

Men jeg får flg. fejlmeddelse.
Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'



//Her er min kode
<%
Dim conn,rs

Function Connect()
    set conn = server.CreateObject("adodb.connection")         
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\mindb\db\mindb.mdb;"
    conn.Open
End Function

Function Disconnect()   
    If conn.State <> adStateClosed Then
          conn.Close ()
          Set conn = Nothing
    End if
    If rs.State = adStateOpen Then
        rs.Close ()       
    End if
End function
%>

Håber i har mulighed for at hjælpe.....

På forhånd tak....