help with recordset "Fields" (1 Viewer)

    Select Case intDAG
        Case 1
            strDAG = "MAA"
        Case 2
            strDAG = "DIN"
        Case 3
            strDAG = "WOE"
        Case 4
            strDAG = "DON"
        Case 5
            strDAG = "VRY"
        Case 6
            strDAG = "ZAT"
        Case 7
            strDAG = "ZON"
    End Select


For intWINKEL = 23 To 28

    strSQL = "SELECT [Basis_item_naam], [" & strDAG & "] FROM qryBasis_items_verdeel_new WHERE (([Bestemming_sub_ID] = " & intWINKEL & ") AND ([" & strDAG & "] IS NOT NULL))"

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)
    
    If rst.EOF Then
        GoTo CleanUp2
    End If


    lngBESTELLING = Nz(Me.Bestelling_ID, 0)
    
    intTYPE = 1

    rst.MoveFirst
    With rst
        Do Until .EOF
            CurrentDb.Execute "INSERT INTO dbo_tblBESTELLING_DETAIL (bestelling_id, bestelling_detail_type, bestelling_detail_tekst, bestelling_detail_aantal) VALUES (" & lngBESTELLING & ", " & intTYPE & ", '" & rst![basis_item_naam] & "', " & rst.Fields(strDAG) & ")"
            .MoveNext
        Loop
    End With

next intWINKEL