Visual Basic - IMPORTAR HOJA DE EXEL A GRILLA

al importar estos datos el libro lo encuentra pero la hoja con los datos no , el problema que me aparece esta marcado con ****
ayuda por favor
un ejemplo: Poned en el form un CommandButton (Command1) y un control DataGrid (DataGrid1). Teneis que tener marcada la referencia a ADO.

Private Sub Command1_Click()
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
' abrimos la conexión al Libro Excel
Set con = New ADODB.Connection
With con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source= " & App.Path & "/Libro1.xls;" & _
"Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
' creamos un recordset con los datos de "Hoja1"
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Hoja1$] ", con, adOpenDynamic, adLockOptimistic ******
' asignamos los campos al DataGrid
Set DataGrid1.DataSource = rst
End Sub

[Hoja1$] --> este es el texto que va en la etiqueta del libro. fijate si tienen el mismo valor

Disculpa jaime pero no te entiendo [Hoja1$] --> este es el texto que va en la etiqueta del libro. fijate si tienen el mismo valor pero en libro por que al hacer el recorset traspasarlo a la varible no reconoce nada

una hoja tiene por etiqueta normalmente hoja1, hoja2, hoja3, etc
tu este valor lo puedes cambiar.
el tag [Hoja1$] es la representacion de la etiqueta de la hoja. Fijate si la etiqueta de la hoja que necesitas es hoja1, sino cambialo.