No se pueden añadir registros sobre consultas.
Si quieres añadir un registro a la tabla de diagnósticos debes hacerlo directamente sobre esa tabla.
Si estás usando ADO puedes hacer algo como esto sobre tu conexión Cnn:
Cnn.Execute ("Insert Into Diagnósticos (campo1, campo2) Values (" & Valor1 & "," & Valor2 & ")")
Saludos, Javier J