🚀 go-pugleaf

Salve a tutti ,spero che qualcuno/a mi posso aiutare su questo problema:
Voglio creare un recordset da un foglio di Excel utilizando ADO per entrare
mi conetto atraverso un DSN previamente creato.
Entro nel file senza problema posso leggere la struttura del file grazie ad
ADOX pero quando ricavo il nome del foglio e lo uso nella stringa SQL ricevo
un errore perche il nome del foglio si porta il simbolo $ attacato al nome e
quindi mi da un errore de sintassi nella clausola FROM.
se sostituisco il nome del  "foglio$" con il nome del "foglio" continua
mandandomi un errore dicedo che non esiste l'ogetto "foglio"
Spero che qualcuno mi possa Aiutare e grazie
Massimo Commendatore

'Referencia ADO 2.7
'Referencia ADO Ext.Dll 2.7
Option Explicit

0        Dim cn As New ADODB.Connection
1        Dim rs As New ADODB.Recordset
2        Dim ver As New ADOX.Catalog
3        Dim tb As ADOX.Table
4        Dim fl As ADOX.Column
5        Dim strSQL As String
6        'Premessa uso questo codice perche ho solamente un foglio
7        Private Sub Form_Load()
8        cn.ConnectionString = "DSN=Mylog.xls"
9        cn.Open
10      Set ver.ActiveConnection = cn
11      For Each tb In ver.Tables
12      List1.AddItem tb.Name
13      strSQL = "SELECT * FROM " & tb.Name ' se eliminate questa linea e la
14 appare tutto nell List1
14      rs.Open strSQL, cn
15      For Each fl In tb.Columns
16      List1.AddItem fl.Name
17      Next
18     Next
19    End Sub