Gennemgang af recordset

Jeg vil gerne kunne gennemgå et recordset men det er måske ikke lige det jeg er bedst til... umiddelbart vil jeg gerne ændre nogen variable i det recordset jeg henter ind men jeg kan ikke rigtig få det til at virke...
Jeg har følgende kode:

Private Sub Command24_Click()
   
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
   
    Dim subcampainID As String
   
    Dim test As String
    Dim test2 As String
   
    Dim name, email as string

    Set db = CurrentDb
       
    orgsubject = Me.subcampain_message.Column(1)
    orgmessage = Me.subcampain_message.Column(2)
   
    subcampainID = Me.subcampain_RegID
   
    sql = "SELECT * FROM tbl_Individuals INNER JOIN tbl_Activities ON tbl_Individuals.individual_RegID = tbl_Activities.activity_individual WHERE (((tbl_Activities.activity_subcampain)=" & subcampainID & ") AND ((tbl_Activities.activity_completed)=False));"

    'Det er her jeg har nogen problemer tror jeg
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
   
    Do While Not rs.EOF
   
        message = orgmessage
        subject = orgsubject
       
        name = rs!individual_firstname
        email = rs!individual_email
       
        subject = Strings.Replace(subject, "[name]", name)
        subject = Strings.Replace(subject, "[email]", email)
       
        message = Strings.Replace(message, "[name]", name)
        message = Strings.Replace(message, "[email]", email)
       
        'her skal der sendes en email til personen               
       
        'her skriver jeg i tabelen at emailen er blevet sendt:
        rs!activity_completed = True
       
        rs.MoveNext
    Loop
End Sub


Det som der er problemet er at jeg ikke rigtig kan få lov til at sætte rs!activity_competed til true... det er en YES/NO i tabelen og jeg ved ikke rigtig hvad jeg gør galt... jeg kan ikke rigtig åbne recordset'et ved hjælp af OpenDynamic... så går der et eller andet galt?!? Er der nogen der kan hjælpe....

weinreich