Visual Basic - ayuda borrar dato bd access dao

Hola,mi problema es que necesito borrar un cliente de la base de datos access 97 con dao,tengo el siguiente codigo pero me marca error y no se que puede ser :

Data1.Recordset.Edit
Data1.Recordset.Fields("cuenta") = Text1.Text
Data1.Recordset.Fields("RFC") = Text2.Text
Data1.Recordset.Fields("CURP") = Text3.Text
Data1.Recordset.Fields("NOMBRE") = Text4.Text
Data1.Recordset.Fields("CALLE") = Text5.Text
Data1.Recordset.Fields("NUMERO") = Val(Text6.Text)
Data1.Recordset.Fields("ENTRE") = Text7.Text
Data1.Recordset.Fields("COLONIA") = Text8.Text
Data1.Recordset.Fields("CP") = Val(Text9.Text)
Data1.Recordset.Fields("CIUDAD") = Text10.Text
Data1.Recordset.Fields("TELEFONO") = Text11.Text
Data1.Recordset.Fields("EMAIL") = Text12.Text
Data1.Recordset.Fields("EMPLEADOS") = Val(Text13.Text)
Data1.Recordset.Delete
Data1.Recordset.Update
MsgBox "Baja Grabada Satisfactoriamente ! "

gracias...

Para borrar el registro no es necesario editarlo ni pasar valores al registro.
Prueba lo Sgte:

Primero localizas el registro

data1.recordset.find "<campo clave>' "+<codigo que vas a borrar>+"' "
luego recien pones el codigo de borrar
data1.........delete
data1........update
........
si estas con los datos en pantalla tienes que moverte de registro.
si estas en un form, refresca tu pantalla

favor necesito acer una buscequeda por cedula o DNI, pero tengo este codigo y no me funciona

im ced As String
ced = InputBox("INGRESE EL NUMERO DE CEDULA A BUSCAR:")
Data1.Recordset.MoveFirst
Data1.Recordset.find "[#C-I] = ' " & ced & "'"

estoy usando data para enlazar las tablas

Sólo debes buscar el código de la tabla (clave) y mira este ejemplo:

Err.Clear
cadena = "NombreTabla"
Set rec = bd1.OpenRecordset(cadena, dbOpenTable)
rec.Index = "primarykey"
rec.Seek "=", Clave
If rec.NoMatch Then
MsgBox "No existe un proveedor con el código seleccionado"
Else
rec.Delete
End If
rec.Close

Espero que te sea útil.

Sólo debes buscar el código de la tabla (clave) y mira este ejemplo:

Dim rec As Recordset

Err.Clear
cadena = "NombreTabla"
Set rec = bd1.OpenRecordset(cadena, dbOpenTable)
rec.Index = "primarykey"
rec.Seek "=", Clave
If rec.NoMatch Then
MsgBox "No existe un proveedor con el código seleccionado"
Else
rec.Delete
End If
rec.Close

Espero que te sea útil.