codice:
Dim cnExcel As ADODB.Connection
     Dim rsExcel As ADODB.Recordset
     Set cnExcel = New ADODB.Connection
     Set rsExcel = New ADODB.Recordset
      With cnExcel         
.Provider = "Microsoft.Jet.OLEDB.4.0"         
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\documents and settings\simone\desktop\prova1.xls;" & "Extended Properties=""Excel 8.0;HDR=yes"";"
         .Open strConn     
End With     
stringaSql = "Select * From tb_prova"     
rsExcel.Open stringaSql, cnExcel     
Dim i As Integer     i = 0     
Do While rsExcel.EOF <> True    
 i = i + 1         
List1.AddItem rsExcel(i).Value    
 Loop
Ho implementato questo semplice codice per connettermi ad un foglio excel ed estrapolarne i dati...purtroppo mi viene segnalato ripetutamente l'errore che è impossibile accedere a "tb_prova" in quanto microsoft jet non è in grado di trovarla e quindi devo accertarmi che la pagina esista...io ho provato in tutti i modi ma niente da fare...non riesco a visualizzare i dati contenuti nel foglio "tb_prova"...la sintassi è corretta e girovagando su internet ho potuto constatare che effettivamente dovrebbe funzionare in questa maniera ma nel mio caso rigetta la query...chi sa dirmi il perke?