VS 2008 Problems with Action Delegates

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As New DataTable
        dt.Columns.Add("CustomerId", GetType(Integer))
        dt.Columns.Add("Rate", GetType(Integer))
        For i = 0 To 9
            dt.Rows.Add(i, 0)
        Next
 
        Dim dataRows = dt.Rows.Cast(Of DataRow)().ToList
        dataRows.ForEach(AddressOf SetRate)                 '<-- this works
        ' dataRows.ForEach(Function(dr) dr("Rate") = 9999)    '<-- this doesn't work!
        For Each dr In dt.Rows
            Console.WriteLine(dr("CustomerId") & "     " & dr("Rate"))
        Next
    End Sub
 
    Sub SetRate(ByVal dr As DataRow)
        dr("Rate") = 9999
    End Sub
End Class