Datacombo + Requetes SQL Oracle

Cette question a été abordée plusieurs fois...mais j'ai pas reussi a trouver et à comprendre les solutions.

je veux faire deux requetes SQL vers deux tables differentes sur une base orcale.
L"une rempli mon datagrid
l'autre mon datacombo.

(les infos seront liées par la suites ).

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Form_Load() Dim strConnectionString As String strConnectionString = "Driver={Microsoft ODBC pour Oracle};SERVER=" & frmLogin.txtAlias & ";UID=" & frmLogin.txtLogin & ";PWD=" & frmLogin.txtPassword & ";" ' premiere requete pour remplir mon datagrid1 Adodc1.ConnectionString = strConnectionString Adodc1.RecordSource = "SELECT t1.numero_compose, t1.COULEUR, t1.Libelle ..... bla bla bla from DIA_DNIS where bla bla bla bla ...'" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 SorSor = False ' deuxieme requete pour remplir mon datacombo1 Adodc1.RecordSource = "SELECT COMPETENCE_PRIMAIRE FROM DIA_COMPETENCES" Adodc1.Refresh Set Datacombo1.DataSource = Adodc1 Set Datacombo1.RowSource = Adodc1 Datacombo1.DataField = "COMPETENCE_PRIMAIRE" Datacombo1.ListField = "COMPETENCE_PRIMAIRE" End Sub
voila, bien entendu...la requete 1 est ecrasée par la requete 2.
Comment faire?
(2 adodc1? 2 recordsources...?)

en fait, j'ai lu un peu les tutoriaux et le forum...mais je crois que je pige pas le mecanisme d'Adodc , recordsource, recordset...

voila, desole si il y'a de la redite

Private Sub Form_Load() Dim strConnectionString As String Dim SQL As String Dim i As Integer Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset strConnectionString = "Driver={Microsoft ODBC pour Oracle};SERVER=" & frmLogin.txtAlias & ";UID=" & frmLogin.txtLogin & ";PWD=" & frmLogin.txtPassword & ";" cn.Open strConnectionString Adodc1.ConnectionString = strConnectionString Adodc1.RecordSource = "SELECT t1.numero_compose, t1.COULEUR, t1.Libelle, t1.phrase_accueil, t1.Competence_primaire, t1.Competence_secondaire, bla bla blaFROM DIA_DNIS where bla bla bla'" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 SorSor = False SQL = "SELECT DISTINCT COMPETENCE_PRIMAIRE FROM DIA_COMPETENCES" rs.CursorLocation = adUseClient rs.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText Set ListCompetence.DataSource = rs Set ListCompetence.RowSource = rs ListCompetence.DataField = "COMPETENCE_PRIMAIRE" ListCompetence.ListField = "COMPETENCE_PRIMAIRE" End Sub