Otra forma es que cheques tus variables, si estás valen 0 insertas la cadena NULL..
Ejemplo..
Cita: If NotaPrimerParcial = 0 Then
s = "INSERT INTO TABLE1 values(NULL,campo2,campo3..etc.....)"
else
s = "INSERT INTO TABLE1 values(NotaPrimerParcial ,campo2,campo3..etc.....)"
End If
Salu2