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 !