Visual Basic - ME URGE ACLARA ESTO POR FAVOR

Hola a todos;

Necesitaría la ayuda con este problemilla, haber si consigo explicarme bien. Tengo un formulario con cuadraditos de verificación, entonces cuando lo pulso me crea un registro en una tabla, y si lo quito, me tiene que eliminar el registro. Expongo lo que tengo en ese cuadradito de verificación:

Private Sub Est111_1_Click()

If Est111_1.Value <> 0 Then
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Deficiencias", dbOpenDynaset)
rst.AddNew
rst!Codigo = "1.1.1"
rst!Ninforme = Me.Ninforme
rst!Deficiencia = "Daños estructurales"
rst!Calificacion = "M"
rst![D_o_M] = "D"
rst.Update
rst.Close: Set rst = Nothing
End If

If Est111_1.Value = 0 Then
Set rst = CurrentDb.OpenRecordset("Select * From Deficiencias Where Codigo='" & 1.1.1 & "'And Ninforme='" & Me.Ninforme & "'And [D_o_M]='" & D
& "'", dbOpenDynaset)
If Not rst.EOF Then
rst.Delete
Else
MsgBox "No se ha encontrado ningún registro con los 3 campos coincidentes", vbInformation, "Aviso"
End If
rst.Close: Set rst = Nothing
End If

En el segundo If, a parte de darme error, no me funciona, es que para que borre el registro tienen que darse que Codigo, Ninforme y D_o_M, sean igual que al registro que hay en la tabla de Deficiencias.

Un saludo,

Pedrito

En el segundo If, a parte de darme error, no me funciona,

Evidentemente, si te da error es que no funciona
pero la pregunta es ¿cual es el error que te da?

lolito