Const adCmdText = 1, adLockOptimistic = 3, adOpenStatic = 3
Dim DataPath, DataFile, Connection, Recordset
DataPath = "C:\DataFiles\"
DataFile = "Sample.csv"

' ******* BEGIN CALLOUT A *******
Set Connection = CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
  & "Data Source=" & DataPath & ";" _
  & "Extended Properties='Text;HDR=Yes'"
' ******* END CALLOUT A *******

' ******* BEGIN CALLOUT B *******
Set Recordset = CreateObject("ADODB.Recordset")
Recordset.Open "SELECT * FROM [" & DataFile & "] ORDER BY LastName", _
  Connection, adOpenStatic, adLockOptimistic, adCmdText
' ******* END CALLOUT B *******

' ******* BEGIN CALLOUT C *******
Do Until Recordset.EOF
  WScript.Echo vbNewLine _
    & "Last name: " & Recordset.Fields.Item("LastName") & vbNewLine _
    & "First name: " & Recordset.Fields.Item("FirstName") & vbNewLine _
    & "E-mail: " & Recordset.Fields.Item("E-Mail")
  Recordset.MoveNext()
Loop
' ******* END CALLOUT C *******