VB.net SQL Client version of OledB code to get data from Excel to SQL

Sub Excel_to_SQL()

        ' Create Data Table for MS-Office 2007 or 2003

        Dim dtExcel As New System.Data.DataTable()

        dtExcel.TableName = "MyExcelData"

Hi

What would the VB.net equivalent of the following code be?

Thanks


        Dim SourceConstr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\Users\Sachindra\Desktop\MyExcel2003.xls';Extended Properties= 'Excel 8.0;HDR=Yes;IMEX=1'"

        Dim con As New OleDbConnection(SourceConstr)

        Dim query As String = "Select * from [Sheet1$]"

        Dim data As New OleDbDataAdapter(query, con)

        data.Fill(dtExcel)
        MsgBox("Data Imported Successfully into DataTable")

    End Sub