yada daha basitleştirilmiş hali,
Capraz_Tbl tablosundaki ID alanı silinebilir

Private Sub AK_Kategori_AfterUpdate()

If Me.AK_Kategori.Value <> "" Then xKriter = " where kategori='" & Me.AK_Kategori.Value & "'"

    Set db = CurrentDb()

    Set ADO_RS = db.OpenRecordset(Name:="select [id] from tbl_urun" & xKriter, Type:=RecordsetTypeEnum.dbOpenDynaset)

        db.Execute "delete * from Capraz_Tbl"



        With ADO_RS 'loop

        db.Execute "delete * from Capraz_Tbl"

        If Not .BOF And Not .EOF Then

                .MoveFirst

                While (Not .EOF)

                dz = .GetRows(3)

                xAlan = ""

                xDeger = ""

                For x = 0 To UBound(dz, 2)

                     xAlan = xAlan & ", [Resim" & x & "]"

                    xDeger = xDeger & ", " & dz(0, x)

                Next x

                    strSQL = "INSERT INTO Capraz_Tbl (" & Mid(xAlan, 3) & ") VALUES ( " & Mid(xDeger, 3) & ");"

                    db.Execute strSQL

                Wend

        End If

        End With

Me.Requery

End Sub