[AEDC]

SQLL = "SELECT T_SAL.MatriculeSalarie AS CP, T_SAL.Nom AS NOM, T_SAL.Prenom AS PRENOM, T_HST_SECU.NoSecu AS CNSS FROM T_SAL INNER JOIN T_HST_SECU ON T_SAL.SA_CompteurNumero = T_HST_SECU.NumSalarie WHERE (((T_HST_SECU.NoSecu) Like Format([T_SAL].[DateNaissance],"\1yymm") & "*") AND ((T_HST_SECU.InfoEnCours)=1) AND ((T_SAL.EtatPaie)=2 Or (T_SAL.EtatPaie)=3))"

Adodc1.RecordSource = SQLL
Adodc1.CommandType = adCmdText
Adodc1.Refresh