lié un datacombo à deux tables via un ado et non un adoDC

Salut
Je cherche à lié un datacombo à deux tables via le code avec un ado et non un adodc
Si quelq'un peut m'aider ...
merci bcp
voilà ce ke j'ai tenté mais sans succes :

Set rsTypeArticle = New Recordset
rsTypeArticle.Open "TypeArticle", g_cnnInterHotel, adOpenDynamic, adLockOptimistic

Set rsArticle = New Recordset
rsArticle.CursorLocation = adUseClient
rsArticle.Open "Article", g_cnnInterHotel, adOpenDynamic, adLockOptimistic

Set dtcNouveau.DataSource = rsArticle
Set dtcNouveau.RowSource = rsTypeArticle

dtcNouveau.DataField = "code_TypeArticle"

dtcNouveau.BoundColumn = "code_TypeArticle"
dtcNouveau.ListField = "lib_TypeArticle"

PittOcha

j'ai trouvé en faite :

'2 recordsets l'un relié a la table TypeArticle et l'autre à la table Article
'1 datacombo dtcTypeArticle


Set rsTypeArticle = New Recordset
rsTypeArticle.CursorLocation = adUseClient
rsTypeArticle.Open "TypeArticle", g_cnnInterHotel, adOpenDynamic, adLockOptimistic

Set rsArticle = New Recordset
rsArticle.CursorLocation = adUseClient
rsArticle.Open "SELECT * FROM Article WHERE code_article = 4", g_cnnInterHotel, adOpenDynamic, adLockOptimistic


'--------------------------'
' Préparation du Datacombo '
'--------------------------'

' 1. Populé par la table TypeArticle
dtcTypeArticle.BoundColumn = "code_TypeArticle"
dtcTypeArticle.ListField = "lib_TypeArticle"
Set dtcTypeArticle.RowSource = rsTypeArticle
'
' 2. Syncronisation par la table Article
dtcTypeArticle.DataField = "code_TypeArticle"
Set dtcTypeArticle.DataSource = rsArticle

Et voilà c tout
@++


PittOcha