Error el indice o la clave principal no puede contenr un valor null ado

Hola, gracias por sus respuesta mi consulta es la siguiente:

Al presionar el botón de guardar tengo el siguiente código en el formulario:

If validar() Then
conectar
consulta = "delete * from camisetas where cod_temporada=" & Me.Cuadro_combinado4 & " and cod_equipo = " & CODIGO_EQUIPO & ""
camiseta.Open consulta, base
camiseta.Open "select * from camisetas", base, adOpenKeyset, adLockOptimistic
camiseta.AddNew
camiseta.Fields("cod_temporada") = Me.Cuadro_combinado4
camiseta.Fields("cod_equipo") = CODIGO_EQUIPO
camiseta.Fields("local") = Me.Texto13
camiseta.Fields("visitante") = Me.Texto15
camiseta.Update
MsgBox "CAMISETAS GUARDADAS", vbInformation, "CARGA EXITOSA"
If camiseta.State <> 0 Then
camiseta.Close
End If
Set camiseta = Nothing
desconectar
End If

Al momento de presionar el botón me dice carga exitosa pero al cerrar el formulario me da el error de el indice o clave primaria no puede contener un valor null. Y en la tabla figura el registro no entiendo.

Tambien probe:

If validar() Then
conectar
consulta = "delete * from camisetas where cod_temporada=" & Me.Cuadro_combinado4 & " and cod_equipo = " & CODIGO_EQUIPO & ""
camiseta.Open consulta, base
'consulta = "INSERT INTO CAMISETAS ( COD_TEMPORADA, COD_EQUIPO, [LOCAL], VISITANTE ) values(" & CInt(Me.Cuadro_combinado4) & " , " & CODIGO_EQUIPO & ", '" & Me.Texto13 & "', '" & Me.Texto15 & "' )"
camiseta.Open consulta, base
MsgBox "CAMISETAS GUARDADAS", vbInformation, "CARGA EXITOSA"
If camiseta.State <> 0 Then
camiseta.Close
End If
Set camiseta = Nothing
desconectar
End If

Me dice camisetas guardadas, pero al cerrar el form me sale el error se elimino el registro y en la tabla figura el nuevo registro, no entiendo.

Elimino y guardo en la misma instrucción para tener solo un botón en el form.