Questa riga

Dim a As String = String.Empty Or "NULL"
non ha molto senso ...

Se il campo e' vuoto

"DELETE FROM Storico WHERE Len([Note])=0"