Lille VBA script til Access 2K haster

Hvad gr der galt her idet den ikke kan finde ud af
Sum([Januar])

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
If Check41 = True Then
jan.Value = "0"
Else
jan.Value = Sum([Januar])
End If
End Sub

hvis jeg definerer Sum([Januar])som recordset på jan virker denne sum godt nok. VBA kan bare ikke finde ud af det.

Hvad gør jeg ....