Comment automatiser le remplissage d'un champ avec un autre (vb

Bonjour,

j'ai trois tables contenant des informations propres à différentes personnes.
Je souhaiterais qu'en cliquant sur la région, il m'affiche automatiquement dans les champs de mon formulaire les informations correspondantes aux personnes (directeur et CAU) de la région concernée:
-Table DR : correspondant aux différentes régions
Eléments de la table : Id-DR (clé primaire);Id_directeur_DR;Id-CAU;DR
-Table Directeur DR : pour les directeurs
Eléments de la table : Id_directeur_DR(clé primaire);Nom_directeur DR;Prenom_directeur DR;DR
-Table CAU : pour les correspondants externes
Eléments de la table : Id-CAU(clé primaire);Nom_CAU;Prenom_CAU;DR

Il s'avère que je suis arrivée à le faire marcher pour les noms et prénoms des directeurs mais je ne parviens pas à rajouter dans marequete (cf code ci-dessous) le code équivalent pour les CAU. Comme je ne sais pas tout écrire en vb (comment relier marequete et marequete1 avec un and ou autre??)

Ci-dessous le code :

Private Sub Id_DR_Change()


'----------------Automatisation du remplissage des champs nom et prenom du directeur lors de la sélection de la DR dans la liste -----


'-----Déclaration des variables ---------
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim marequete As String
Dim marequete1 As String
Dim Region
On Error GoTo erreur

'----------Ouverture de la base de données ----------
Set db = DBEngine.OpenDatabase(Application.CurrentProject.Path & "\OSMOSE_V2.accdb")

'----------Récuperer le nom et le prénom du directeur DR -----------
'Mémoriser la DR selectionné par l'utilisateur
Region = Form![Id-DR]
marequete = "SELECT DISTINCT Nom_directeur_DR, Prenom_directeur_DR, [Table DR].[Id-DR] from [Table directeur DR] INNER JOIN [Table DR] ON [Table directeur DR].Id_directeur_DR = [Table DR].Id_directeur_DR WHERE [Table DR].[Id-DR]= " & Region & ";"
marequete1 = "SELECT DISTINCT Nom_CAU, Prenom_CAU, [Table DR].[Id-DR] from [Table CAU] INNER JOIN [Table DR] ON [Table CAU].Id_CAU = [Table DR].Id_CAU WHERE [Table DR].[Id-DR]= " & Region & ";"
'Ouvrir la requete
Set rs = CurrentDb.OpenRecordset(marequete, dbOpenSnapshot)
Set rs = CurrentDb.OpenRecordset(marequete1, dbOpenSnapshot)
'si la requete renvoie un résultat
If (Not (rs.EOF)) Then
'remplissage automatique des champs Nom_directeur_DR et Prenom_directeur_DR
Nom_directeur_DR = rs!Nom_directeur_DR
Prenom_directeur_DR = rs!Prenom_directeur_DR
Nom_CAU = rs!CAU
Prenom_CAU = rs!Prenom_CAU
Else
MsgBox "Aucun directeur dans notre base n'est associé à la DR selectionnée", vbCritical, "Erreur"
End If

'----------Fermeture requete et base de données -------
rs.Close
db.Close


'-------------Fonctions ---------------
Sortie:
Set db = Nothing
Exit Sub
erreur:
MsgBox err.Description, vbExclamation, err.Number
Resume Sortie

End Sub

JE VOUS REMERCIE PAR AVANCE POUR VOTRE AIDE!!!