Dim oledbcon As Odbc.OdbcConnection
                oledbcon = New Odbc.OdbcConnection
                oledbcon.ConnectionString = "MaxBufferSize=2048;FIL=excel" & _
                  "8.0;DSN=Excel-Dateien;PageTimeout=5;DefaultDir=C:\;DBQ=C:\B" & _
                  "41406.xls;DriverId=790"
                oledbcon.Open()
 
                Dim oledbdata As New Odbc.OdbcCommand
                Dim olereader As Odbc.OdbcDataReader
                oledbdata.Connection = oledbcon
 
                oledbdata.CommandText = "select * from Sheet1"
                olereader = oledbdata.ExecuteReader
 
                While olereader.Read = True
                    MsgBox(olereader.Item(0))
                End While
                olereader.Close()