Hyperlink in RTF

code:
------------------------------------------------------------

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????