Recordset til listviewcontrol (sp6) med kriterier

Hej Eksperter
Nedenstående kode er leveret af Terry, og fylder data i et activeX (Microsoft ListviewControl SP6), dette virker perfekt:

On Error Resume Next

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim itmX As ListItem
 
Set rs = New ADODB.Recordset
With rs
       
Set .ActiveConnection = CurrentProject.Connection
     
       
.Open "Select * From Qaction", , , adLockOptimistic
 
Do Until .EOF
 
     
Set itmX = lstaction.ListItems.Add(, , rs!ID)
     
itmX.SubItems(1) = rs![Subject]
itmX.SubItems(2) = rs![Created]
                               
           
.MoveNext
       
  Loop
       
  End With
   
   
rs.Close

mit spørgsmål er om man kan nøjes med at fylde data ind med et kriterie i stedet for alle records fra Qaction. I Qaction ligger der flere records med samme ID og det er denne Id jeg gerne vil spørge på i ovenstående kode, hvis der feks. er 100 records i Qaction og de 10 af dem svare til den ID jeg har på min form i forvejen ønsker jeg kun at vise data i activex'en som har denne Id feks. Me.ID, kan dette lade sig gøre.

Arbejder i access 2000 og 2002

mvh Anders.