Vb combobox

Bonjour,
je travail sur un projet vb6 avec ADO et j ai dans une form 3 combobox qui doivent se remplire apartir des tables de la base de données .ca marche tré bien pour le premier mai pour les aures je sai pa comment faire voila le code:
Private Sub Form_Load()
Dim ocn As New ADODB.Connection
Dim ors As New ADODB.Recordset
Dim ssql As String
Dim ssql1 As String
Dim scn As String
scn = "Provider=Microsoft.jet.oledb.4.0;data source= GESTION.mdb;"
ssql = "select distinct Category from T_Categories;"
ocn.Open scn
ors.Open ssql, ocn, adOpenForwardOnly, adLockReadOnly, adCmdText
While Not ors.EOF
Combo1.AddItem ors(0)
ors.MoveNext
Wend
ors.Close
ocn.Close
Set ors = Nothing
Set ocn = Nothing
End Sub
merci d avane

oui c'est le meme principe mai est ce que je doit déclarer un nouvel rs ou koi? je sai pa vraiment est ce que je doit copier coller le code ou quoi
merci

merci bien j ai réglé le prb mnt cette forme contien 3 combo pour choisir le type la catégorie et la nature du produit et un bouton ok quan o clik il faut remlir un datagrid avec les produits de la nature le type et la catégories chasis est ce que cest possible
merci beaucoup

merci bcp
je suis pa trop forte dans le vb surtout Ado mai comment peut on remplir un Datagrid apartir de la base de données?
merci