dim rs as new odbc.recorset rs.CursorLocation = adUseClient rs.CursorType = adOpenForwardOnly rs.LockType = adLockOptimistic sQuery = "select *" sQuery = sQuery & " from [la table] " sQuery = sQuery & " where .....[les conditions] " cmd.CommandText = sQuery rs.Open cmd '--- c'est surtout ca qui t'interesse While rs.EOF = False Me.Listlivre.AddItem rs![titre du Livre] rs.MoveNext Wend rs.close