Open the recordset. Extract the field with hyperlink and connect it to the File System Object and TextStream
Dim rs as New ADODB.Recordset
Dim FSO As New FileSystemObject
Dim FL As TextStream
rs.Open "SELECT hLinkField FROM MYTABLE WHERE ID = 1", con,adopenKeySet, adLockReadOnly
'If record found then
If rs.BOF = False Then
'open the file in the field which contains
'the hyperlink to the textfile
Set FL=FSO.OpenTextFile(rs!hLinkField, & _
ForReading, False)
Text1.Text = ""
While Not FL.AtEndOfStream
Text1.Text = Text1.Text & FL.ReadLine
Wend
FL.Close
End If
Set FL = Nothing
Set FSO = Nothing
Regards
Shaik Akthar