Error 3426

[RicardoRojas]

Private Sub Check1_Click()
If Check1.Value = 0 Then
'Data1.Recordset.CancelUpdate
'Data2.Recordset.CancelUpdate
ElseIf Check1.Value = 1 Then
Data1.Recordset.AddNew'tabla No. 1 General
Data2.Recordset.AddNew'tabla No. 2 Datos
frmBD.Data1.Recordset.AddNew'tabla No. 3 Vaijas a Presión
End If
end sub

en le último form que aparéce, en un command, coloqué:

Private Sub Command1_Click()
frmBD.Data1.Recordset.Update
'frmBD.Refresh
End Sub

No sé si sea por el cambio del form, no tengo idea, por favor necesito una idea del por qué del error.
Gracias.