Error con RecordSet

[acutillas]

La respuesta no te la voy a dar, me interesa más que intentes cambiar la metodología de trabajo.

Private Sub cmdEditar_Click()
If Trim(txtNombre.Text) = "" Then
MsgBox "Debe escribir el nombre del Contácto.", vbInformation, "Información"
txtNombre.SetFocus
Exit Sub
End If
ModoEditar True
End Sub

Private Sub CmdGuardar_Click()
If Trim(txtNombre.Text) = "" Then
MsgBox "Debe escribir el nombre del Contácto.", vbInformation, "Información"
txtNombre.SetFocus
Exit Sub
End If
rs.Update
ModoEditar False
End Sub



si te das cuen esto no es programación capitalista.

prueba hacer un modulo de mesg donde colocar
MsgBox "Debe escribir el nombre del Contácto.", vbInformation, "Información"
solo una vez.