'DONT REMOVE COMMENTZ 

 'START Code : BY V.B.T 

 Dim DAST As New DataSet
 Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
           & "Data Source=N:\WindowsApplication1\WindowsApplication1\bin\bk.xls" _
           & ";" & "Extended Properties=Excel 8.0;"
        Dim conn As New OleDb.OleDbConnection(sConnectionString)
        Dim SelectString As String
        'SelectString = "CREATE TABLE SampleTable2 (ix NUMBER, CustName char(255), Stamp datetime)"
        ' SelectString = "insert into [SampleTable] ([ix],[CustName],[Stamp]) values(12,'فيبولتن',now)"
        SelectString = "Select ix, CustName, Stamp From SampleTable"
        Dim DAPT As New OleDbDataAdapter(SelectString, conn)
        Dim Cmd As New OleDb.OleDbCommand(SelectString, conn)
        conn.Open()
        Try
            Cmd.ExecuteNonQuery()
        Catch zx As SqlClient.SqlException
        End Try
        DAPT.Fill(DAST, "SAMPLETABLE")
        conn.Close()
        Grid.DataSource = DAST
        Grid.DataMember = "SAMPLETABLE"