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)