Dim m_sConn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & SourceFile & ";"
            If WithHeaders = "True" Then
                m_sConn1 += "Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'"
            Else
                m_sConn1 += "Extended Properties='Excel 8.0;IMEX=1;;'"
            End If
            Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
            conn1.Open()
            Dim cmd1 As New System.Data.OleDb.OleDbCommand("Select * From [" & _
              WorkSheetName & "$]", conn1)
            Dim rdr As System.Data.OleDb.OleDbDataReader = cmd1.ExecuteReader
 
            Do While rdr.Read()
...