Dim i_sConn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
  SourcePathAndFileName & ";" 
 
If WithHeaders Then
   i_sConn1 += "Extended Properties=""Excel 8.0;IMEX=1;HDR=YES"";"
Else
   i_sConn1 += "Extended Properties=""Excel 8.0;IMEX=1;"";"
End If
 
Dim i_SQLConnection1 As New System.Data.OleDb.OleDbConnection(i_sConn1)
i_SQLConnection1.Open()
 
Dim i_SQLCommand As New System.Data.OleDb.OleDbCommand("Select * From [" & _
  WorkSheetName & "$]", i_SQLConnection1)
Dim i_OleDbReader As System.Data.OleDb.OleDbDataReader = _
i_SQLCommand.ExecuteReader
 
Do While i_OleDbReader.Read()
 
   If Not i_OleDbReader.GetValue(i) Is System.DBNull.Value Then
      If CType(i_OleDbReader.GetValue(i), String) = "" Then
         i_row(i) = ""
      Else
         i_row(i) = CType(i_OleDbReader.GetValue(i), String)
      End If
   Else
      i_row(i) = ""
   End If
Loop
i_OleDbReader.Close()
i_SQLConnection1.Close()