Problema base de datos y Visual Basic

Bueno mi problema es que al querer hacer una operacion entre dos celdas de una base de datos vista con una dbgrid, no se me produce ninguna operación, a demas necesito que en otra celda o en un Textbox, esta me vaya mostrando el total de todos los registros, a continuacion pongo el codigo:

Private Sub Command1_Click()

On Error GoTo ManipulaErr
Exit Sub
ManipulaErr:
If Err.Number = 3426 Then
MsgBox "Seleccione La selda correcta"
End If
Resume
Data1.Recordset.AddNew
Jornal% = data1.recordset.fields(2).value
Precio% = data1.recordset.fields(3).value
Data1.recordset.fields(4) = Jornal% * Precio%
End Sub

P.D: como hago para que no se me genere el maldito error 3426
Gracias

no es que yo se que eso no va hay, sino que al copiar se descabello la vaina, pero gracias, ya arregle el problema