DataGrid ( VB6)

Bonjour,

Je m'adresse à vous, pour vous prier de me renseigner sur le comment faire afficher les données sur ma DataGrid à chaque fois où je sélectionne un bouton.

Je m'explique.

sur la (Form) il y'a :

1 : Deux boutons ( Option )
OptQ1
OptQt2
2 : Combox ( Affiche les mois de l'année)

3 : DataGrid

4 : Addoc

mes codes sont comme suite:

une fois le mois sélectionné, je clique sur un bouton (OptQ1) ou (OptQ2)

dans chacun de ces deux boutons, j'ai écris :

 Private Sub OptQ1_Click()

dim Q as string

Q = "Quinzaine n°1"

SQLs = "select * from TableQuinzaines where ((Dossier='" & CStr(VarDossier) & "')and (Mois='" & CStr(cmbMois) & "') and (Quinzaine='" & CStr(Q) & "'))"
    
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
   
 ADQuinzaine.RecordSource = SQLs
    
Set DGQuinzaine.DataSource = ADQuinzaine
    
DGQuinzaine.AllowArrows = False
DGQuinzaine.AllowUpdate = False
    
 ADQuinzaine.Refresh

end sub

sur OptQ2 ( le même code )

Private Sub OptQ2_Click()

dim Q as string

Q = "Quinzaine n°2"

SQLs = "select * from TableQuinzaines where ((Dossier='" & CStr(VarDossier) & "')and (Mois='" & CStr(cmbMois) & "') and (Quinzaine='" & CStr(Q) & "'))"
    
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
   
ADQuinzaine.RecordSource = SQLs
    
Set DGQuinzaine.DataSource = ADQuinzaine
    
DGQuinzaine.AllowArrows = False
DGQuinzaine.AllowUpdate = False
    
ADQuinzaine.Refresh

end sub

Ce que je cherche, est faire afficher les données de la Quinzaine n° 1 ( optQ1) s'elles existent, sinon, la datagrid doit être vide
la même chose, lors d'un click sur le bouton OpQ2,

Merci pour votre aide.