Le contrôle n'est pas correctement licencié!!

Merci cs_Le Pivert pour votre réponse,
Le problème que j'ai déjà msdatgrid.ocx dans mon dossier c:/Windows/sysWOW64 , mais s'affiche toujours le même message d'erreur.
Je sais pas comment je doit faire pour résoudre ce problème!!!

il faut l'enregistrer:

http://assiste.com.free.fr/p/comment/desenregistrer_dll_ocx.php

@+

j'ai essayé mais sans succès!!!
Échec du chargement du module < msdatgrid.ocx>
Vérifiez que le fichier binaire est stocké à l'emplacement désigné par le chemin d’accès spécifié ou déboguez-le pour rechercher d'éventuels problèmes de fichiers .DLL binaires ou dépendants.
Le module spécifié est introuvable. !!!

On va le faire par code, tu vas chercher l'emplacement de ton OCX et l'enregistrement se fera automatiquement.

Dim chemin As String
'On cherche le chemin du fichier
On Error Resume Next
 Application.FileDialog(msoFileDialogOpen).Show
 chemin = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
 Shell ("regsvr32 " & chemin) 'enregistrer
' Shell ("regsvr32 /u " & chemin)'desenregistrer

Ensuite dans l'éditeur tu iras dans références et tu cocheras ton OCX

@+

Tu n'est pas le seul dans ce cas, voir ici si tu peux trouver une solution

https://codes-sources.commentcamarche.net/forum/affich-1617081-je-n-arrive-pas-a-enregistrer-les-ocx-et-dll-sur-windows-7-pour-visual-basic-6

@+

Bonjour Thev ,
Merci pour votre réponse, j'ai déjà essayée de travailler avec une ListBox qui permet d'afficher les données enregistrer dans le base de données ACCESS. Le problème que j'ai n'ai pas arrivée de créer les titres de mes colonnes et je n'ai pas réussi de crée plus que 8 colonnes!! j'ai c'est pas quoi le problème exactement voila mon code:

<Dim db As Database
Dim rs As Recordset

Set db = DBEngine.OpenDatabase("C:\Users\Z636237\Desktop\Maintenance1.mdb")
Set rs = db.OpenRecordset("Select Code_a_barre, Emplacement, Plateau, Position, Affectation, Axalant, Designation, Fournisseur, Quantite, Stock_mini, Date_Heure, Situation From Articles")

rs.MoveFirst
i = 0
With Me.ListBox1
.ColumnHeads = True
.ColumnWidths = "100;100;50;50;100;70;200;100;50;50;70;100"
.ListIndex = -1
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
.ColumnCount = 12

Do

.AddItem
.List(i, 0) = rs![Code_a_barre]
.List(i, 1) = rs![Emplacement]
.List(i, 2) = rs![Plateau]
.List(i, 3) = rs![Position]
.List(i, 4) = rs![Affectation]
.List(i, 5) = rs![Axalant]
.List(i, 6) = rs![Designation]
.List(i, 7) = rs![Fournisseur]

.List(i, 8) = rs![Quantite]


.List(i, 9) = rs![Stock_mini]
.List(i, 10) = rs![Date_Heure]
.List(i, 11) = rs![Situation]
i = i + 1


rs.MoveNext
Loop Until rs.EOF
End With

rs.Close
>
Merci d'avance