Forbindelse til en Excelfil

Jeg vil gerne oprette forbindelse til en Excelfil, så jeg kan trække data op i et dataset. Jeg fandt dette forslag:

Dim ConnExcel As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""")

og en anbefaling til SELECT:

Dim sql As String = "SELECT * FROM [sheet1$]"

men dette:

Dim objAdapter As New OleDbDataAdapter(Sql, ConnExcel)
Dim ds As New DataSet()
DataGrid1.DataSource = ds
Label1.Text = ds.Tables.Count()

giver mig nul linier og en fejl, hvis jeg fortsætter med DataBind().

Nogen forslag?