Recupero i dati da un file excel in questo modo
Dim rs As ADODB.Recordset
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & fileSelezionato
'Apro la connessione ed effettuo la query
rs.Open "SELECT * FROM [Sheet1$]", sconn
Me.MousePointer = vbHourglass
saveData (rs)
Dopodichè vorrei inviare il rs ad una sub che tramite un'altra connessione va a prendere il recordset della tabella di destinazione, scorre il rs e inserisce i dati al suo interno.
Ma il programma mi da in esecuzione un errore di mismatch, non capisco il motivo.