strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath&(".") & ";Extended Properties=""text;HDR=Yes;FMT=Delimited()"""
set cn = Server.CreateObject("ADODB.Connection")
cn.Open strConn
<%
set rs = Cn.Execute("SELECT * FROM nome_file.csv")
.....