SoloCodigo

Saludos...

Trabajo en una tabla de Access 97 con VB6 quiero ejecutar el siguiente codigo:

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

Set BD = OpenDatabase("C:\DNA\bd1.mdb", , False)
SQL = "DELETE * FROM dna WHERE  ID = ''"

BD.Execute SQL
BD.Close
End Sub

Si el codigo lo ejecuto paso a paso funciona la sentencia SQL(SQL = "DELETE * FROM dna WHERE  ID = ''"), pero si lo ejecuto continuamente esta ya no funciona.
Lo que necesito es que de la tabla DNA elimine todos los registros iguales a "" .

De antemano agradezco me ayuden a solucionar mi problema y falta de conocimiento.
Gracias.