Const strSource =  "C:\"
Dim strCnnString
Dim cnn, rst1

    ' Строка подключение OLE DB.
    strCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        strSource & ";Extended Properties=""text;HDR=No;FMT=Delimited"""
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open strCnnString
    cnn.CursorLocation = 3
    ' открытие рекордсета
    Set rst1 = cnn.Execute("SELECT * FROM [Test.txt]")
    rst1.Sort = "F3"
    MsgBox rst1.Fields.Count
        Do While Not rst1.EOF
	msgbox rst1.Fields( 2 )
                rst1.MoveNext
        Loop
    rst1.Close
    cnn.Close
    Set rst1 = Nothing
    Set cnn = Nothing 

[Test.txt]
ColNameHeader=False
Format = Delimited(;)
TextDelimiter=None

О Г Р О М Н Е Й Ш Е Е    С П А С И Б О ! ! !