Grazie 1000, fratello!
Con qualche ritocco mi hai dato la soluzione.
La posto, affinché possa essere di aiuto ad altri amici
nel codebehind:
Imports System.Web.UI.HtmlControls

Sub calcoladata(ByVal sender As Object, ByVal e As DataGridItemEventArgs)
If not (e.Item.FindControl("ancora")) is nothing Then
dim pippo as HtmlAnchor=(CType(e.Item.FindControl("ancora"), HtmlAnchor))
pippo.HRef="javascript:GetDate('"+e.Item.FindContr ol("data").ClientID+"')"
End If
end sub

dove <calcoladata> è il gestore dell'evento OnItemDataBound del datagrid

e <ancora> è il link associato al textbox del datagrid
<a href="" id="ancora" runat="server" ><img.......> .

Saluti
Enzo