lien hypertext et Datalist

Bonjour!

Je voudrais faire que quand on clique sur un élément de ma Dataliste, il s'active un lien qui ouvre une image.

J'accede a mon image dans ACCESS, que je recupere dans un recorset.
J'ai mis champ des images en hypertexte, j'arrive bien a recuperer le lien hypertexte.

Je ne sais pas du tout comment qu'on fait pour activer le lien qui on clique dans une dataliste.

Pour l'instant voici mon code de ma datalist :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim rslien As ADODB.Recordset   Private Sub Datalisthelp_Click()     Set rslien = New ADODB.Recordset rslien.ActiveConnection = c '---ajout d'activeconnection car jet.4 rslien.Properties("IRowsetIdentity") = True '---permet utilisation des curseurs _   comme source de données a cause de la version 4 de jet   rslien.Open ("Select * from Helpdesk where [Helpdesk].id_Pda= '" & Datalistpda.BoundText & "' "), _ , adOpenKeyset, adLockPessimistic   '---ouvrir le lien hypertext 'C ' EST LA QUE JE SAIS PAS QUOI FAIRE MsgBox (rslien!Printecran)   End sub

---

quelq'un a til deja rencontré ce probleme??
Merci les amis!!

Mes amis,8-)
J'ai décidé d'utilisé L'API SHELL EXECUTE

Le seul truc qui coince est que je recuperele lien hypertexte dans un champ du recordset ( car il dépend du choix de l'utilisateur ).
J'ai donc décidé de mettre à la place du lien mon recordset, mais ca marche po... Avec le lien ca marche mais le champ du recordset qui possede bel et bien le lien...marche po..

Pourriez vous me dire ce qu'il doit manquer ?
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

'----API shellexecute pour lien hypertexte Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long     Private Sub Datalisthelp_Click()     Set rslien = New ADODB.Recordset rslien.ActiveConnection = c '---ajout d'activeconnection car jet.4 rslien.Properties("IRowsetIdentity") = True '---permet utilisation des curseurs _   comme source de données a cause de la version 4 de jet   rslien.Open ("Select * from Helpdesk where [Helpdesk].id_Pda= '" & Datalistpda.BoundText & "' "), _ , adOpenKeyset, adLockPessimistic   '---ouvrir le lien hypertext MsgBox (rslien!Printecran)   '----C'est là, où il ya le recordset RSLIEN, je sais pas comment faire pour qu'il en compte ce qu'il ya dans le recordset...     ShellExecute Me.hwnd, "open", rslien!Printecran, vbNullString, vbNullString, SW_SHOWNORMAL       End Sub

---