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

Micke