[i1982]

بفضل الله تمكنت من العثور على الكود بعد بحث وعدة تجارب وهذا الكود لمن يريد

كود :

 Dim file_name As String
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
 cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= d:\2003.xls ;Extended Properties=Excel 12.0;"

 If cn.State = adStateOpen Then
     MsgBox "Excel File is Connected. ", , "Message"
     rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM [aa$]", cn, 3, 3, 1 - adCmdText
     Set DataGrid1.DataSource = rs
     DataGrid1.Refresh
     DataGrid1.ReBind

  Else: MsgBox "Error: Excel File is not Connected. ", , "Message"
 End If