Type incompatible - comprand pas !!

j'ai un message d'erreur que je ne comprand pas , pouvez vous m'aider !

c pourtant simple , c juste une connexion a une base de donnée :

Dim db As Database
Dim rs As Recordset
Dim sql As String
'ouverture de la base
Set db = OpenDatabase("C:\Facture.mdb")

sql = "SELECT * FROM produit"
Set rs = db.OpenRecordset(sql) *
While Not rs.EOF
MsgBox rs("produit_nom")
rs.MoveNext
Wend
rs.Close

*= a ce moment la il me dis Type Incompatible

qu'es qui cloche ?

merci !

open recordset prends une requete SQL en parametres ?
sinon essaye avec db.execSQL() ou runSQL je sais plus.


::|The S@ib|::



-------------------------------
Réponse au message :
-------------------------------

>
> j'ai un message d'erreur que je ne comprand pas , pouvez vous m'aider !
>
> c pourtant simple , c juste une connexion a une base de donnée :
>
> Dim db As Database
> Dim rs As Recordset
> Dim sql As String
> 'ouverture de la base
> Set db = OpenDatabase("C:\Facture.mdb")
>
> sql = "SELECT * FROM produit"
> Set rs = db.OpenRecordset(sql) *
> While Not rs.EOF
> MsgBox rs("produit_nom")
> rs.MoveNext
> Wend
> rs.Close
>
> *= a ce moment la il me dis Type Incompatible
>
> qu'es qui cloche ?
>
> merci !
>