prova cosi':

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")
'******presumo sia questo il campo incriminato*********
    oRs("ID_MS") = cint(replace(Rs("ID_MS"),"ID-",""))
'******************************************************                            
    oRs("NOME")= Rs("COGNOME")
    oRs("COGNOME") = Rs("COGNOME")                    
    oRs("DATA_DI_NASCITA")= Rs("DATA_DI_NASCITA")
          
    oRs.Update