Subform - requery

Hi,

I have  a form with a subform. In the form i have 2 comboboxes. One for the article (called artikelnr) and one for the action that is needed (called meting).
When i select an article and then a meting the subform will not set up-to-date.
What i'am doing wrong?

Tx

On Error GoTo Err_Fout
    Dim rs As DAO.Recordset, db As Database
    Dim i As Integer
    Set db = CurrentDb()
    Set rs = OpenSeek("metingStandaardArtikel")
    With rs
        .Index = "Primarykey"
        .Seek "=", CLng(Forms!MetingItemsArtikel!Artikelnr), Forms!MetingItemsArtikel!Meting
        If .NoMatch Then
            .AddNew
            !Artikelnr = CLng(Forms!MetingItemsArtikel!Artikelnr)
            !Meting = Forms!MetingItemsArtikel!Meting
            .Update
        End If
    End With
    Me.Refresh
    Me.Requery
    Forms!MetingItemsArtikel.Form!MetingItemsArtikelSub.Requery

Select allOpen in new window