Private Sub Liste_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Dim ExL As Object
        ExL = CreateObject("Excel.Application")
        ExL.Workbooks.Open(Application.StartupPath & "\sample.xls", , , , , , , _
          , True)
 
    End Sub

Gruss Caddy