Grazie, il code per l'importazione è questo (molto semplificato):
codice:
.........
Set Conn = GetConnection 
      Set RS = Server.CreateObject("ADODB.Recordset")
      Set oRs = Server.CreateObject("ADODB.Recordset")
  
  oRS.Open "tabella", GetConnection, 2, 2

  Rs.Open "SELECT * from [Foglio1$]", "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)
      
   
   Do Until Rs.Eof    
   
   If Rs("ID") <> "" Then
   
    oRS.AddNew
    
    oRs("ID") = Rs("ID")  
    oRs("ID_MS") = Rs("ID_MS")                            
    oRs("NOME")= Rs("COGNOME")
    oRs("COGNOME") = Rs("COGNOME")                    
    oRs("DATA_DI_NASCITA")= Rs("DATA_DI_NASCITA")
          
    oRs.Update
    
         
   else ............