Function ExcelToDataTable(ByVal cExcelPath As String, _
        ByVal cSqlString As String) As System.data.DataTable
        Dim objDAdapter As New System.Data.OleDb.OleDbDataAdapter(cSqlString, _
          "provider=microsoft.jet.oledb.4.0;data source=" & _
                                                            cExcelPath & _
                                                            ";Extended" & _
                                                            "Properties =" & _
                                                            """Excel 8.0"";")
        Dim objDTable As New System.Data.DataTable
 
        Try
            objDAdapter.Fill(objDTable)
        Catch ex As Exception
            Return (objDTable)
        End Try
        Return (objDTable)
    End Function
 
'und der aufruf der function
DataGrid1.DataSource = ExcelToDataTable(Application.StartupPath & "\test.xls", _
  "Select * from [Tabelle1$]")