In questo script c'è un'errore. L'errore che mi da è
Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
[Microsoft][Driver ODBC Excel] Il modulo di gestione di database Microsoft Jet non è riuscito a trovare l'oggetto 'prova'. Assicurarsi che l'oggetto esista e che il nome e il percorso siano digitati correttamente.
/Prova.asp, line 18 (per capirci l'errore sta nella riga ObjRsXls.Open queryXls,ObjConXls). Qualcuno sa indirizzarmi verso una soluzione.
Questo script permette di trasformare dati di excel in un database Access (se funzionasse).

<%
'OGGETTO CONNESSIONE AL FILE DI EXCEL
dim ObjConXls
'OGGETTO CONNESSIONE AL DB
dim ObjConDb
'STRINGA DI CONNESIONE AL FILE DI EXCEL
dim StrconnXls
'STRINGA DI CONNESSIONE AL DB
dim Strconndb
'OGGETTO RECORDSET PER TRATTARE I DATI DEL FILE DI EXCEL
dim ObjRsXls
'QUERY PER L'APERTURA DEL FILE DI EXCEL
dim queryXls
'QUERY DI AGGIORNAMENTO PER IL DB TRAMITE OGGETTO COMMAND
dim QueryDb
'OGGETTO COMMAND PER L'AGGIORNAMENTO DEL DB
dim ObjCmdDb

'STRUTTURA FILE DI EXCEL
'CAMPO ID (Cella A1)
'CAMPO 1 NOME (cella B1)
'CAMPO 2 COGNOME(cella C1)

'STRUTTURA DB
'CAMPO 1 ID
'CAMPO 2 NOME
'CAMPO 3 COGNOME


set ObjConXls = server.CreateObject("ADODB.Connection")
set ObjConDb = server.CreateObject("ADODB.Connection")
set ObjRsXls = server.CreateObject("ADODB.Recordset")
set ObjCmdDb = server.CreateObject("ADODB.Command")

StrconnXls = "DBQ=" & server.MapPath("mdb-database/prova.xls") & ";" & "DRIVER={Microsoft Excel Driver (*.xls)};"
Strconndb = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("\mdb-database\prova.mdb")
ObjConXls.Open StrconnXls
ObjConDb.Open Strconndb
queryXls = "SELECT * FROM prova"
ObjRsXls.Open queryXls,ObjConXls

ObjCmdDb.ActiveConnection = ObjConDb

response.Write ObjRsXls.Fields("nome")

while not ObjRsXls.EOF

'CANCELLO LA QUERY PRECEDENTE
QueryDb = ""
'GENERO LA NUOVA QUERY
QueryDb = "INSERT INTO prova (nome,cognome) VALUES('" & ObjRsXls.Fields("nome") & "','" & ObjRsXls.Fields("cognome") & "')"
'AGGIORNO IL DB
ObjCmdDb.CommandText = QueryDb
ObjCmdDb.Execute
'MUOVO IL RECORDSET
ObjRsXls.MoveNext
wend
'CHIUDO LE CONNESSIONI
ObjConXls.Close
ObjConDb.Close
'FACCIO UN PO DI PULIZIA
set ObjRsXls = nothing
set ObjCmdDb = nothing
set ObjConDb = nothing
set ObjConXls = nothing
%>


Grazie anticipato Ottobis