VB Dejar campo vacío y guardar.

Buen día.

Tengo una parte del código para una BD en Access, si se llena la información general del paciente se puede guardar, si se queda cualquier campo vacío sale mensaje de que hay que llenar todos los datos.
Necesito hacer que se pueda guardar dejando vacío el campo de Apellido Materno, por ejemplo para algunos pacientes extranjeros donde sólo usan el apellido paterno.

Private Sub btnGuardar_Click()

Dim sValidacion As String
sValidacion = validarCampos

If sValidacion = "" Then

Set db = CurrentDb
If (IsNull(DLookup("[Expediente]", "Paciente", "StrComp([Expediente],'" & Format(NumeroExpediente, "0000000000") & _
"',0)=0 "))) Then

db.Execute "Insert Into Paciente(Expediente,Apellido_paterno,Apellido_materno,Nombre,Fecha_Nacimiento,Edad,Sexo,Escolaridad,EstadoCivil) " _
& "VALUES ('" & Format(NumeroExpediente, "0000000000") & "','" & Apellido_Paterno & "','" & Apellido_Materno & "','" & Nombre__s_ & "','" & Fecha_de_NAC & "'," & EDAD & ",'" & Sexo & "','" & Escolaridad & "','" & Estado_Civil & "')"
Else
db.Execute "Update Paciente set Apellido_paterno='" & Apellido_Paterno & "',Apellido_materno='" & Apellido_Materno & "',[Nombre='" & Nombre__s_ & "',Fecha_Nacimiento='" & Fecha_de_NAC & "',Edad=" & EDAD & ",Sexo='" & Sexo & "',Escolaridad='" & Escolaridad & "',EstadoCivil='" & Estado_Civil & "' Where Expediente='" & Format(NumeroExpediente, "0000000000") & "'"

End If

MsgBox "Paciente Guardado con éxito"
DoCmd.Close

Else
MsgBox "Capture los campos" & vbCrLf & sValidacion
End If
End Sub