VB.Net Excel Get Name sheet automatic

Può capitare di leggere un file Excel, tramite ADO, per rilevare il nome del foglio di Excel,
in maniera dinamica, possiamo utilizzare il metodo GetSchema della classe oledbconnection.
Qui d seguito un esempio.

 Using OleDbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName+ ";Extended Properties=Excel 8.0;")
                    
                        OleDbCon .Open()
                        'rilevo il nome del foglio di excel in modo che se è diverso o c'è lo spazio posso sempre aprirlo
                        Dim DttDati As DataTable = OleDbCon .GetSchema("Tables")
                        Dim NomeSheet As String = DttDati .Rows(0)(2).ToString()
                        Dim OleDbComm As OleDbCommand = New OleDbCommand("Select * from [" & lNomeSheet & "] ;")


end using