Bonjour,
j'ai un projet de base de donnée en vb6 relie avec accès avec contrôle recordset
une fois je exécuter mon application sorte un message de erreur
erreur de exécution '13'
type incompatible
----------voila le code source
Dim db As Database
Dim rstelop As Recordset
Private Sub Form_Load()
Set db = OpenDatabase("db1")
Set rstelop = db.OpenRecordset("telop")'le erreur dans cette partie
Call aficher
End Sub
Private Sub aficher()
Text1.Text = rstelop![nom]
Text2.Text = rstelop![pre]
Text3.Text = rstelop![nom com]
Text4.Text = rstelop![date de entre]
Text5.Text = estelop![login]
End Sub