lettura file csv restituisce tabella vuota

[pegaso]

ho messo solo il codice di base senza la parte della tabella ma il risultato di questa query è vuoto..ecc....la pagina non mi va in errore ma non vedo nulla!!!!!!!!
<%
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".\") & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"""
set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open strConn%>
<%
strSQL = "SELECT * FROM prova.csv"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, adOpenStatic
%>
<%
Do While objRS.EOF
Response.Write "<td align='left'><font color='#000000' face='Verdana' size='2'>" & objRS("CRUISE-ID") & "</font></td>"
Response.Write "<td align='left'><font color='#000000' face='Verdana' size='2'>" & objRS("SHIP-CD") & "</font></td>"
Response.Write "<td align='left'><font color='#000000' face='Verdana' size='2'>" & objRS("SAILING-PORT") & "</font></td>"
objRS.MoveNext
%>

[ossocgf]

Visto che è un file .csv, io lo elaborerei con il FileSystemObject Object

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile(<file>)

Do While Not oFile.AtEndOfStream
sLine = oFile.ReadLine