Dim objDataSet As New DataSet
    Dim objAdapter As OleDbDataAdapter
    Dim objConnection As New OleDbConnection
    Dim myPath As String = "..."
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & myPath & ";Extended Properties=""Excel" & _
          "8.0;HDR=Yes;IMEX=1"";"
 
        loadTable("Tabelle1")
        loadTable("Tabelle2")
 
        With DataGridView1
            .DataSource = objDataSet.Tables("TheTable")
            .ReadOnly = True
            .Refresh()
        End With
 
    End Sub
 
    Private Sub loadTable(ByVal sTable As String)
        objAdapter = New OleDbDataAdapter("select * from [" & sTable & "$]", _
          objConnection)
        objAdapter.Fill(objDataSet, "TheTable")
    End Sub
End Class

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable("TheTable")
        dt.Columns.Add("col1", GetType(String))
        dt.Columns.Add("col2", GetType(Integer))
        dt.Columns.Add("col3", GetType(Integer))
 
        dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
 
        objDataSet.Tables.Add(dt)
 
        objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & myPath & ";Extended Properties=""Excel" & _
          "8.0;HDR=Yes;IMEX=1"";"
 
        loadTable("Tabelle1")
        loadTable("Tabelle2")
 
        With DataGridView1
            .DataSource = objDataSet.Tables("TheTable")
            .ReadOnly = True
            .Refresh()
        End With
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist