Ami eto ti edin primer:
Eto i imeto na dokumenta v MSDN -
HOWTO: Use the ADO Recordset, Record and Stream Objects to Open Documents

Dim stm As ADODB.Stream
Set stm = New ADODB.Stream

Text1.Text = ""

rec.Open "test.txt", "URL=http://localhost/test", , , adCmdTableDirect

stm.Type = adTypeText
stm.Charset = "ascii"
stm.Open rec, adModeRead, adOpenStreamFromRecord

Text1.Text = stm.ReadText
Uspeh