UserForm_Initialize secondaire privé ()
Faible NC en tant que nouvel ADODB.Connection
Faibles rs en tant que nouvel ADODB.RecordSet
Faible strConn comme corde
strConn = « Provider=Microsoft.Jet.OLEDB.4.0 ; Point d'émission = C:\My Folder\MyDatabase.mdb ; =admin d'identification de l'utilisateur ; Password= ; »
NC. Ouvrir le strConn
rs. Ouvert « choisir * à partir de l'ORDRE de ClientNames par Pname », NC, adOpenDynamic, adLockOptimistic, adCmdText
ListBox1.Clear
Faire jusqu'à rs.EOF
Rs de ListBox1.AddItem, rs. Champs (« PName »). Valeur
rs.MoveNext
Boucle
rs. Fin
NC. Fin
Sous-marin d'extrémité
|