CSV To SQL Import, Skip First Row (two Functions)

I have this code. It works, but inserts the header row into the gridview. I need to avoid the first row. 
 
 Protected Sub excelimport(ByVal dataSrc As SqlDataSource, ByVal fileName As String)

        Dim intFileNameLength As Integer
        Dim strFileNamePath As String
        Dim strFileNameOnly As String
        Dim strpath As String

        If Not (uploadfile.PostedFile Is Nothing) Then
            strFileNamePath = uploadfile.PostedFile.FileName

            intFileNameLength = InStr(1, StrReverse(strFileNamePath), "")

            strFileNameOnly = Mid(strFileNamePath, (Len(strFileNamePath) - intFileNameLength) + 2)

            'If File.Exists(paths & strFileNameOnly) Then
            'lblMessage.Text = "Image of Similar name already Exist,Choose other name"
            'Else
            If uploadfile.PostedFile.ContentLength > 40000 Then
                lblmessage.Text = "The Size of file is greater than 4 MB"
            ElseIf strFileNameOnly = "" Then
                Exit Sub
            Else
                'strfilename = uploadfile.FileName.Substring(0, (InStr(uploadfile.FileName, ".") - 1))
                strFileNameOnly = fileName & ".csv"
                strpath = "/sites/marketing/apps/disposition/content/excel/" '& strFileNameOnly
                uploadfile.PostedFile.SaveAs(Server.MapPath(strpath) & strFileNameOnly)
                'lblmessage.Text = "File Upload Success."
                'Session("Img") = strFileNameOnly

                Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (Server.MapPath(strpath)) & ";Extended Properties=""Text;HDR=No;FMT=Delimited"""
                '"Provider=Microsoft.Jet.OLEDB.4.0;" & _
                '"Data Source=" & "/" & strFileNameOnly & ";" & _
                '"Extended Properties=Excel 8.0;"
                Dim conn As New OleDb.OleDbConnection(strConn)
                Dim myData As New OleDbDataAdapter("SELECT * FROM " & strFileNameOnly, conn)
                Dim myDatatable As New System.Data.DataTable
                Dim mySqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("BDOConnectionString").ToString())
                ''You must use the $ after the object you reference in the spreadsheet

                myData.Fill(myDatatable)
                InsertData(myDatatable, mySqlConnection)
                'System.IO.File.Delete(Server.MapPath(strpath))
                GridView1.DataBind()
                upload.Visible = False
            End If
        End If

        ' GridView1.DataSource = myDataset.Tables(0).DefaultView
        ' GridView1.DataBind()
    End Sub

    Private Shared Sub InsertData(ByVal sourceTable As System.Data.DataTable, ByVal destConnection As SqlConnection)
        ' old method: Lots of INSERT statements

        ' first, create the insert command that we will call over and over:
        destConnection.Open()
        Using ins As New SqlCommand("INSERT INTO [tblAppointmentDisposition] ([contactdate], [dnbnumber], [prospectname], [businessofficer], [phonemeeting], [followupcalldate2], [phonemeetingappt], [followupcalldate3], [appointmentdate], [appointmentlocation], [appointmentkept], [applicationgenerated], [applicationgenerated2], [applicationgenerated3], [comments], [newaccount], [futureopportunity]) VALUES (@contactdate, @dnbnumber, @prospectname, @businessofficer, @phonemeeting, @followupcalldate2, @phonemeetingappt, @followupcalldate3, @appointmentdate, @appointmentlocation, @appointmentkept, @applicationgenerated, @applicationgenerated2, @applicationgenerated3, @comments, @newaccount, @futureopportunity)", destConnection)
            ins.CommandType = CommandType.Text
            ins.Parameters.Add("@contactdate", SqlDbType.Text)
            ins.Parameters.Add("@dnbnumber", SqlDbType.Text)
            ins.Parameters.Add("@prospectname", SqlDbType.Text)
            ins.Parameters.Add("@businessofficer", SqlDbType.NVarChar)
            ins.Parameters.Add("@phonemeeting", SqlDbType.Text)
            ins.Parameters.Add("@followupcalldate2", SqlDbType.Text)
            ins.Parameters.Add("@phonemeetingappt", SqlDbType.Text)
            ins.Parameters.Add("@followupcalldate3", SqlDbType.Text)
            ins.Parameters.Add("@appointmentdate", SqlDbType.Text)
            ins.Parameters.Add("@appointmentlocation", SqlDbType.Text)
            ins.Parameters.Add("@appointmentkept", SqlDbType.Text)
            ins.Parameters.Add("@applicationgenerated", SqlDbType.Text)
            ins.Parameters.Add("@applicationgenerated2", SqlDbType.Text)
            ins.Parameters.Add("@applicationgenerated3", SqlDbType.Text)
            ins.Parameters.Add("@comments", SqlDbType.Text)
            ins.Parameters.Add("@newaccount", SqlDbType.Text)
            ins.Parameters.Add("@futureopportunity", SqlDbType.Text)

            ' and now, do the work:

            For Each r As DataRow In sourceTable.Rows
                If sourceTable.Rows.IndexOf(sourceTable.Rows(0)) Then
                    'do nothing
                Else
                    For i As Integer = 0 To 16
                        ins.Parameters(i).Value = r(i)
                    Next
                    ins.ExecuteNonQuery()
                    'If System.Threading.Interlocked.Increment(rowscopied) Mod 10000 = 0 Then
                    'Console.WriteLine("-- copied {0} rows.", rowscopied)
                    'End If
                End If
            Next
        End Using
        destConnection.Close()
    End Sub