Bonjour,

J'ai essayé de corriger ton code.
En fait j'ai tellement corrigé qu'il ne t'en reste qu'une seule ligne.


Private Sub Command1_Click()
DRClient.Show
End Sub