Private Sub btnExc_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnExc.Click
 
        Dim strConn As [String] = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
          "Source=C:\CeylanMed\Temp.xls;" & "Extended Properties=Excel 8.0;"
        Dim ds As New DataSet()
 
        Dim da As New OleDbDataAdapter("SELECT * FROM [Tabelle1$]", strConn)
 
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0).DefaultView
 
    End Sub