DBGrid Ayda con este error!!!!!

sol
06 de Mayo del 2004
Me podria decir si esto esta bien ya que me sale un error de escritura; decirme como lo hago por favor

Private Sub Command2_Click()
Dim dia As Date

dia = DBGrid1.Columns(2) - DBGrid1.Columns(3)
If DBGrid1.Columns(2) > DBGrid1.Columns(3) Then
MsgBox ("Late " & dia)

DBGrid1.Columns(4) = dia * 3.5

End If
End Sub

Gracias y un buen dia a todos