Considerando che i file.CSV altro non sono che dei comuni file di testo dove i campi sono separati da ";" è possibile manipolarli con FileSystemObject. La soluzione al problema è relativamente semplice. Ti allego un esempio perfettamente funzionante estrapolato da una mia applicazione.

Ciao e buon lavoro



<%@ Language=VBScript %>
<%
option explicit
const FileMDB="DB1.mdb"
const TabellaMDB="Tabella1"
const FileInput="foglio.csv"
dim Ncampi
Ncampi=3
dim FSOText,FRText
dim Cn,Rs
dim riga,SQL,i

Set FSOText = CreateObject("Scripting.FileSystemObject")
Set FRText = FSOText.OpenTextFile(Server.MapPath(FileInput),1)
set Cn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")

Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath(FileMDB)
Cn.Execute "DELETE " & TabellaMDB & ".*, * FROM " & TabellaMDB

Ncampi=Ncampi-1
do while not FRText.AtEndOfLine
Sql="INSERT INTO " & TabellaMDB & " (campo1,campo2,campo3) SELECT "
riga=FRText.readline
Riga=split(Riga,";")
for i=0 to Ncampi
sql=sql & "'" & Riga(i)
if i < Ncampi then
sql=sql & "',"
else
sql=sql & "'"
end if
next
Rs.Open SQL,CN
Loop
FRText.close
set FSOText=nothing
set FRText=nothing
set RS=Nothing
set CN=nothing
%>