object was open vbscript code example

Example: vbscript create ADODB.Connection

Dim objConn 'As ADODB.Connection'
Set objConn = Server.CreateObject("ADODB.Connection")

Dim strPath 'As String'
strPath = Server.MapPath("\App_Data\direkt.mdb")
Call objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath)