ComboBox Access SQL

Salut tout le monde,
Je viens d'utiliser un simple comboBox dans mon Form et j'avais pour but de faciliter la saisie. C'est à dire lorsque vous introduisez le numéro 1 il t'affiche l'index le plus proche qui commence par 1 ensuite si vous ajoutez 9 il t'affiche le numéro ex : 193232365 correspondant à l'index le plus proche et ainsi de suite jusqu'à la fin de la saisie. J'utilise les ADODB recordset pour la connexion à la BDD Access et j'ai ajouter le code suivant pour simuler ce travail

Private Sub Combo1_Change()
     Dim sql As String
     Dim rs As New ADODB.Recordset

     Set rs = Nothing
     

     sql = "SELECT Articles.refA From Articles WHERE (((Articles.refA) Like '1'+'*')) ORDER BY Articles.refA;"

      rs.Open sql, conn, adOpenStatic, adLockOptimistic
     Combo1.Text = rs![refA]    
End Sub

Le problème d'après c'est la requête mais malheureusement cette requete fonctionne parfaitement sous Access. Peut être que ce code manque bien quelques lignes mais pour l'instant le recordset est vide. Donc si quelqu'un pourrai m'aider je lui serai reconnaissant.

Merci pour votre attention.

Salut,

Il faut parcourir les différents enregistrements de ton recordset.

tu fais déjà une condition
rs.movelast
if rs.recordcount>0 then
rs.movefirst
Do while Not rs.EOF
Combo1.additem rs.refA
rs.movenext
Loop
End If

Oui j'ai exactement essayer ça mais le problème c'est que ma requête s'exécute très bien sous Access mais le problème c'est que j'arrive à l'exécuter sous VB. il n'y a aucun enregistrement :(

Dans ce cas la requete n'ets pas correcte.

Essaye plutôt:
Sql="Select refA From Articles WHERE refA Like '1%'"