imports System.Data.Oledb
.
.
.
 
dim datei as string ' Pfad und name zu deiner Datei, z.B. "C:\test.xls"
dim ConnectionString as String = "Provider=Microsoft.Jet.OleDb.4.0; Data Source" & _
  "= " + _
  datei+"; Extended Properties='Excel 8.0;HDR=Yes;'" 
'HDR = Yes gibt an, dass die erste Zeile die Spaltennamen enthält
 
dim conn as new oledbconnection(connectionString)
dim dt as new datatable
try
conn.Open
dim cmd as new oledbcommand("Select * From [DeineTabelle$]", conn)
dim da as new oledbdataadapter(cmd)
da.fill(dt)
catch ex as exeption
finally
conn.Close
end try

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender