Egne komponenter

Hejsa

Jeg sidder lige og prøver at skrive mine egne komponenter, men er lidt lost.

Jeg har lavet flg.:

Public Function connect(database)
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(database))
End Function

Prøver så at kalde den sådan her:

<%
set connect = server.createobject("connect.class1")
response.write connect.connect("db.mdb")
%>

Jeg får så den her fejl:

connect error '800a01a8'

Object required

/CPT.asp, line 3