Bonjour,
Dans le cas d'un Select
un simple execute
ne suffit pas.
Il faut créer un objet Recordset pour y placer le résultat de la requête puisque tu en attend un retour
Ici un exemple dans lequel requete est ta chaine de requête, Cnx est un objet ADODB.Connection et T un variant :
Dim Cnx As Object, Rst As Object
Dim T as Variant, requete as String
' ...
Set Rst = CreateObject("ADODB.Recordset")
Rst.Open requete, Cnx, 3
If Not Rst.RecordCount = 0 Then
ReDim T(Rst.Fields.Count - 1, Rst.RecordCount - 1)
Rst.MoveFirst
T = Rst.GetRows
End If
Ce code te permet donc de récupérer la ou les valeurs dans le tableau T.
Il te suffit ensuite de pointer sur celle(s) qui t'intéresse, par exemple
T(1,1) pointera sur la donnée de la ligne 1, colonne 1
Dnas ton cas, ce sera du genre : UserformTruc.Textbox1.value = T(1,1)