Dim Connect,conn
Connect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veri.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open Connect