Dim DS As System.Data.DataSet
Dim mComm As System.Data.OleDb.OleDbDataAdapter
Dim mConn As System.Data.OleDb.OleDbConnection
Dim sSql As String = "select * from ["Adressen$]"
 
mConn = New System.Data.OleDb.OleDbConnection( _
  "provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data.xls;Extended" & _
  "Properties=Excel 8.0;")
mComm = New System.Data.OleDb.OleDbDataAdapter(sSql, mConn)
DS = New System.Data.DataSet