Visual Basic - Consulta SQL NO FUNCIONA

Saludos...

Tengo el siguiente problema:

Private Sub LIMPIARTABLA()
Dim BD As Database
Dim SQL As String

Set BD = OpenDatabase("C:\DNA\VISUAL BASIC\Proyectos\EJEMPLOS\DE EXCEL A ACCESS\bd1.mdb", , False)

SQL = "DELETE * FROM [dna] WHERE ID = ''"
BD.Execute SQL
BD.Close
End Sub

Si este codigo es ejecutado paso a paso la sentencia que elimina los campos con valor "", (SQL = "DELETE * FROM [dna] WHERE ID = ''") funciona correctamente, pero si ejecuto continuamante el codigo la consulta no se ejecuta.

Alguien me podria ayudar...

Gracias

En lugar de comparar ID="" prueba con ISNULL(ID) quizas asi si funcione????
SQL = "DELETE * FROM [dna] WHERE ISNULL(ID)"