VBA database field name variable

Dim rst As New ADODB.Recordset
Sheets("TempReport").Range("AA2").Offset(B - 1, C).Value = rst(Sheets("Temp").Range("A1").Offset(0, D).Value)