Line 341: connect = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source= '" + path + "'" + "Extended Properties='Excel 4.0;HDR=Yes;IMEX=1;'" Line 342: Dim conn As New OleDbConnection(connect) Line 343: conn.Open() Line 344: Dim ds = New DataSet() Line 345: Dim od As New OleDbCommand("SELECT * FROM [Sheet1$]", conn)
|