Function FaireSQLtoCOMBO (Req As String, CurId As Integer) As Integer
Dim Ret%
Dim Id%
Dim s As String
Dim S2 As String
Dim bId As Integer
CptMatch = 0
bId = CurId
'On Error Resume Next
MaxNum = 0
cri.Clear
cri.Refresh
NextCur = 0
Ret = pExecute(Req)
FaireSQLtoCOMBO = Ret
While (Ret = True)
    Ret = pGetItem(s, 0)
    If Ret = True Then
        Id = Val(s)
        Ret = pGetItem(s, 1)
        Ret = pGetItem(S2, 2)
        If Id = bId Then
            NextCur = 0
            CurrentCur = Id
            cri.AddItem s + Space(40) + S2
        Else
            If NextCur = 0 And Id > CurrentCur Then
                NextCur = Id
                XasTrace "--NextCur-->" + CStr(NextCur)
            End If
        End If
        Ret = Val(S2)
        Ret = pGetItem(s, 3)
        CptMatch = Val(s)
        MaxNum = MaxNum + 1
    End If
    Ret = pMoveNext(Id)
Wend
If CptMatch > 0 Then
    LabMsg.Caption = s + " référence(s)"
End If
End Function