Dim dtDataTable As New DataTable
        Dim dbConnection As OleDb.OleDbConnection
        Dim dbDataAdapter As OleDb.OleDbDataAdapter
        Dim strDateiname As String = "d:\datumstest.xls"
        Dim strTabellenblattname As String = "Tabelle1"
        Dim strZellenwert As String
 
        dbConnection = New OleDb.OleDbConnection
 
        dbConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
          "Data Source=" & strDateiname & "; Extended Properties=""Excel" & _
          "8.0;HDR=YES;"""
 
        dbConnection.Open()
 
        dbDataAdapter = New OleDb.OleDbDataAdapter("Select * From " & "[" & _
          strTabellenblattname & "$]", dbConnection)
 
        dbDataAdapter.Fill(dtDataTable)
 
        strZellenwert = dtDataTable.Rows(1).Item(1).ToString
 
        dbConnection.Close()
 
        MessageBox.Show(strZellenwert)

EALA FREYA FRESENA