O QUE ESTA ERRADO?

RDPIZA 28/02/2012 14:54:29
#395932

Quando clico pra gravar dados da este erro
(Run-time[ô]438[ô]:
Object doesn[ô]t support this property or method


Private Sub cmdGravar_Click()



On Error GoTo Erro_Gravar
If MsgBox([Ô]Deseja Salvar ?[Ô], vbQuestion + vbYesNo, [Ô]Salvar[Ô]) = vbYes Then
Data1.recordset.Update
End If
txtCPF.SetFocus
Erro_Gravar:
If Err.Number = 3020 Then
MsgBox [Ô]Não existe registro para Gravar![Ô], vbInformation, [Ô]Aviso[Ô]
Else
MsgBox Err.Number & Chr(13) & Err.Description
End If

End Sub




) que esta errado?