خزن بيانات من excel الى datatable

السلام عليكم...

الشيت في الإكسل يمكن اعتبارها جدول , و تنفيذ عبارات السيكوال عليها..

  Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/book1.xls;Extended Properties='Excel 8.0;ReadOnly=False;HDR=Yes;'")
 connection.Open()
 Dim selectCommand = connection.CreateCommand()
 selectCommand.CommandText = "SELECT * FROM [Sheet1$] WHERE ID > 10"
 Dim adp As New OleDbDataAdapter()
 adp.SelectCommand = selectCommand
 dim dt as New DataTable
 adp.Fill(dt)
 connection.Close()

مع الشكر والتقدير