DoCmd.RunSQL "DELETE dimbilli FROM tbl_dimbilli WHERE ((dimbilli<>1) OR (dimbilli Is Null));"
İlgili kodu aşağıdaki ile değiştiriniz.