Visual Basic - Error

Queria saber que error tengo en este codigo:

Private Sub CmdGuardar_Click()
If Data1.Recordset.BOF Then
MsgBox ("Para Guardar, favor de ingresar un nuevo cliente")
Else
Data1.Recordset.Update
End If
Cmdeliminar.Enabled = True
CmdBuscar.Enabled = True
Cmdsiguiente.Enabled = True
CmdUltimo.Enabled = True
CmdInicio.Enabled = True
CmdAnterior.Enabled = True
CmdEditar.Enabled = True
Cmdexit.Enabled = True
Cmdnuevo.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
End Sub

cuando ejecuto el programa y doy doble click al boton guardar me manda este error:

update or cancelupdate without addnew or edit

gracias

Techno

Antes de usar el metodo Update debes haber usado el metodo .ADDNEW si vas a agregar un record nuevo o el metodo .EDIT si vas a modificar uno ya existente ...

rs.ADDNEW
rs.Fields("Campo1") = cValor1
rs.Fields("Campo2") = cValor2
rs.UPDATE

o bien

rs.EDIT
rs.Fields("Campo1") = cValor1
rs.Fields("Campo2") = cValor2
rs.UPDATE

En tu codigo solo tienes ...
Data1.Recordset.Update

pero no tienes antes de eso el metodo ADDNEW o el metodo EDIT y los campos que estas actualizando ...

SI dichos metodos los estas usando en otra parte de tu codigo y en el boton que comentas solo estas haciendo el UPDATE, entonces el problema es que al dar click dos veces en el mismo boton, probablemente la primera vez si corre bien porque previamente tenias el ADDNEW/EDIT activo, pero la segunda vez que le das click al boton, dichos metodos no han sido pre-ejecutados de nuevo ...

Pues eso, te lo estás diciendo tú mismo.
Antes del update ponle AddNew