问如何在ADODB查询中声明列表中的变量？

EN

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "E15" Then
        N_CG_bulletin_de_souscription Target.Value
    End If
End Sub

Sub N_CG_bulletin_de_souscription(strQ As String)
    'Please, note that the parameter 'cnn_Pegase' is not declared and defined.
    'Properly declare it and give to it the necessary value, before running the code...
    Dim RECSET As New ADODB.Recordset
    RECSET.Open "select cond_gene.s_no_cg from db_dossier sousc, db_protocole proto, db_tiers tiers, db_cond_gene cond_gene, dr_protocole_cg protocole_cg, db_personne pers, db_contrat cont " & _
                " where sousc.no_police = '" & strQ & "' and sousc.cd_dossier = 'SOUSC' and sousc.lp_etat_doss not in ('ANNUL','A30','IMPAY') and sousc.is_dossier = cont.is_dossier and cont.is_cg = cond_gene.is_cg", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic
        If Not RECSET.EOF Then
            Worksheets("1 - Feuille de Suivi Commercial").Range("N_CG_bulletin_de_souscription_C11").Value = RECSET.fields("s_no_cg").Value
        Else
            Worksheets("1 - Feuille de Suivi Commercial").Range("N_CG_bulletin_de_souscription_C11").Value = ""
        End If
    RECSET.Close
End Sub