DataTable and Hyperlink Column

[Tim::..]

Can someone please tell me how I create a hyperlink column in a datatable...

I have the following Sub that creates a datatable from my Active Directory
but I would like to be able to turn the email column into a link so it
automatically opens an email!

I realise I have to create a mailto: link but am not sure how you create a
link column programatically in a datatable in ASP.NET

Thanks
....CODE...

Sub BindGrid(Option al ByVal alpha As String = "")

Dim strADPath As String
strADPath = "netdomain.usem bassy.dk"

Dim de As DirectoryEntry = New DirectoryEntry( "LDAP://" & strADPath,
"netadmin", "N37au7h0R" )
Dim src As DirectorySearch er

If alpha = "" Then
DataGrid1.Allow Paging = True
src = New
DirectorySearch er("(&(objectCa tegory=Person)( objectClass=use r))")
Else
DataGrid1.Allow Paging = False
src = New
DirectorySearch er("(&(objectCa tegory=Person)( objectClass=use r)(sn=" & alpha &
"*))")

End If

src.SearchRoot = de
src.SearchScope = SearchScope.Sub tree
For Each res As SearchResult In src.FindAll
Dim dr As DataRow = ds.Tables("cont acts").NewRow
dr("&nbsp;") = "<img src='../images/user.gif'>"

If res.Properties. Contains("sn") And
res.Properties. Contains("given Name") And res.Properties. Contains("Initi als")
Then
dr("Name") = CStr(res.Proper ties("givenName ")(0)) & ", " &
CStr(res.Proper ties("sn")(0)) & " " & CStr(res.Proper ties("Initials" )(0))
Else
dr("Name") = ""
End If

If res.Properties. Contains("physi calDeliveryOffi ceName") Then
dr("Dept.") =
CStr(res.Proper ties("physicalD eliveryOfficeNa me")(0))
Else
dr("Dept.") = ""
End If

If res.Properties. Contains("telep honeNumber") Then
Dim TeleNumber As String =
CStr(res.Proper ties("telephone Number")(0))
dr("Ext") = "#" & Right(TeleNumbe r, Len(TeleNumber) -
InStr(TeleNumbe r, "1"))
Else
dr("Ext") = ""
End If

If res.Properties. Contains("mail" ) Then
dr("Email") = CStr(res.Proper ties("mail")(0) )
Else
dr("Email") = ""
End If

ds.Tables("cont acts").Rows.Add (dr)

Next
' Binds Contact data from Active Directory to DataGrid
DataGrid1.DataS ource = ds.Tables("cont acts")
DataGrid1.DataB ind()
End Sub