oleDbConExcel = New OleDbConnection( _
 "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
 Application.StartupPath & "\tabelle.xls;" & _
 "Extended Properties = Excel 8.0")
oleDbDaExcel = New OleDbDataAdapter( _
 "SELECT * FROM [Tabelle1$]", oleDbConExcel)
dtExcel.Clear()
oleDbDaExcel.Fill(dtExcel)
For Each dr As DataRow In dtExcel.Rows
  For j As Integer = 0 To dr.ItemArray.Length - 1
    MsgBox(CStr(dr.Item(j))
  Next
Next

Gru? Patrick
---
Wer nicht fragt, bleibt dumm.