Hyperlink in RTF

[johnweidauer]

code:
------------------------------------------------------------
Private Sub Command1_Click()
Dim i As Integer

rtf.Text = ""
rtf.Refresh
rtfText = "Getting Results..."
rtf.Refresh

Cn.Open MyConnection
Set Rs = Cn.Execute("select * from the_table")

Do While Not Rs.EOF
i = i + 1
Rs.MoveNext
Loop

rtfText = "Getting Results..." & i & " record(s) found." & vbCrLf
rtfText = rtfText & vbCrLf
If i <> 0 Then

Rs.MoveFirst

Do While Not Rs.EOF

rtfText = rtfText & "Name: " & Rs.Fields(1) & " " & Rs.Fields(2) & vbCrLf
rtfText = rtfText & "Ext.: " & Rs.Fields(3) & vbCrLf
rtfText = rtfText & "Email: " & Rs.Fields(4) & vbCrLf
rtfText = rtfText & "Title: " & Rs.Fields(5) & vbCrLf
rtfText = rtfText & vbCrLf

Rs.MoveNext
Loop

End If

rtf = rtfText
rtf.Refresh
Rs.Close
Cn.Close

End Sub
----------------------------------------------------------------------
When it gets to Rs.Fields(4), I want the value to function as a Hyperlink in the RTF box. I have looked at this example, http://www.vb-world.net/tips/tip149.html, it doesnt work in the ActiveX Component. Can anyone help????