cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & MyFolder & ";" & _
            "Extended Properties=""Text;HDR=No;"""

rs.open "Select * from " & MYFile, cnn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = False Then
rs.MoveFirst
Do While Not rs.EOF()
  ... = rs.Fields(0).value
rs.MoveNext
Loop
End If
...