Ya lo solucione den por cerrado el tema, Muchachos sobre todo los nuevos como yo, usemos mas el MSDN de visual la ayuda realmente si funciona.
como lo solucione?, de la siguiente manera:
Código:
Private Sub guardar_Click()
mensaje = MsgBox("Esta seguro que quiere guardar los datos?", vbYesNo, "ABM Grupos")
If mensaje = vbYes Then
grupo.Recordset.Update
mensaje = MsgBox("Los datos han sido actualizados!", vbInformation, "ABM Grupos")
Else: grupo.Recordset.CancelUpdate
grupo.Recordset.MoveNext
If grupo.Recordset.EOF Then
grupo.Recordset.MoveLast
End If
End If
End Sub
Simplemente modifique la opcion delete por cancelupdate
Saludos.