[سؤال] ما الخطأ في هذا الكود - نسخة قابلة للطباعة

كود :
Public Class Form1

    Function GetDatafromExcelSheet(ByVal filepath As String, ByVal sql As String) As DataTable

        Dim myconnection As New OleDb.OleDbConnection

        Dim mycommand As New OleDb.OleDbCommand

        Dim da As New OleDb.OleDbDataAdapter

        Dim dt As New DataTable

        myconnection.ConnectionString =

            "provider= microsoft.jet.oledb.4.0;datasource='" & filepath & "';extended properties=excel 8.0"

        mycommand.Connection = myconnection

        mycommand.CommandText = sql

        da.SelectCommand = mycommand

        da.Fill(dt)

        Return dt



    End Function



    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown

        Dim dt As New DataTable

        dt = GetDatafromExcelSheet("D:\atlas\database\atlas.xls", "Select القارة from [data$]")

        Me.cmbbxcontinent.DataSource = dt

        Me.cmbbxcontinent.DisplayMember = dt.Columns(0).ToString

        Me.cmbbxcontinent.ValueMember = dt.Columns(0).ToString

        Me.cmbbxcontinent.SelectedIndex = 1



    End Sub

End Class