Visual Basic - importar datos de exel a una grilla por favor

al inportar estos datos el libro lo encuentrapero la hoja con los datos no esta marcado con ****
ayuda
Os pongo 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

es mucho mas complicado usar el ADO con excel que usar el componente que viene en el VB, dandole click derecho a tu barra de herramientas, components, microsoft office components, elijes la herramienta de excel y la enlazas con tu documento, y este te respeta los formatos que tu manejas en esta hoja de excel, mucha suerte y si tienes dudas no dudes en esccribirme