Dim vPath As String = System.IO.Path.GetPathRoot(fName)
Dim vFile As String = System.IO.Path.GetFileName(fName)
Dim conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & vPath & ";Extended Properties=""text;HDR=Yes;FMT=Delimited""")
conn.Open()
Dim myCommand As OleDbCommand = conn.CreateCommand()
Dim commandString As String = "select * from " & vFile
myCommand.CommandType = CommandType.Text
myCommand.CommandText = commandString
Dim dataReader As OleDbDataReader = myCommand.ExecuteReader()
While dataReader.Read()
rs.AddNew()
rs(0).Value = dataReader.GetDateTime(dataReader.GetOrdinal("Date"))
rs(1).Value = dataReader.GetDateTime(dataReader.GetOrdinal("Time"))
rs(2).Value = dataReader.GetString(dataReader.GetOrdinal("Feature"))
rs(3).Value = dataReader.GetString(dataReader.GetOrdinal("Crew ID"))
rs(4).Value = dataReader.GetString(dataReader.GetOrdinal("Event"))
rs.Update()
End While