Dim objDataSet As System.Data.DataSet
Dim objAdapter As System.Data.OleDb.OleDbDataAdapter
 
 'Die Tabelle lesen 
        If rbRLM.Checked = True Or rbSLP.Checked = True Then
            strConnection.ConnectionString = _
              "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & mypath & ";" & _
                    "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
 
            objAdapter = New System.Data.OleDb.OleDbDataAdapter _
                 ("select * from [" & sTable & "$]", strConnection)
 
            objDataSet = New System.Data.DataSet
            objAdapter.Fill(objDataSet)
        End If
 
 
 
        With DataGridView1
            .DataSource = objDataSet.Tables(0)
            .ReadOnly = True
            .Refresh()
        End With