söz cümleyi bitirmemişsin
<%
Yol=Server.Mappath("data.mdb")
Set baglanti=Server.Createobject("Adodb.Connection")
oku="Provider=microsoft.jet.oledb.4.0; data source=" & Yol &";" baglanti.open (oku)
%>