How to open a Excel CSV file format and Sort the result in listview control.

'Visual Basic Source Code
Private Sub btnLoad_Click()
Dim Conn As ADODB.Connection
Dim Rec1 As ADODB.Recordset
Dim SQL_Str As String
Dim field_num As Integer
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"DefaultDir=" & txtDir.Text
Conn.Open
LvResults.Visible = False
DoEvents
SQL_Str = "Select * FROM " & txtFile.Text & " ORDER BY " & txtField.Text
field_num = CInt(txtField.Text) - 1
Set Rec1 = Conn.Execute(SQL_Str)
LvResults.Clear
While Not Rec1.EOF
If IsNull(Rec1.Fields(field_num).Value) Then
LvResults.AddItem "<null>"
Else
LvResults.AddItem Rec1.Fields(field_num).Value
End If
Rec1.MoveNext
Wend
LvResults.Visible = True
End Sub