Dim objConn 'As ADODB.Connection' Set objConn = Server.CreateObject("ADODB.Connection") Dim strPath 'As String' strPath = Server.MapPath("App_Datadirekt.mdb") Call objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath)