unable to delete table with certain prefix via vba

i m trying to scan thru the namemanager via vba macros and delete all tables with prefix "import" but i keep getting error sub or function not defined on dlookup

sub DeleteTables()

    If Not IsNull(DLookup("Name", "MSysObjects", "Name='import' AND Type = 1")) Then
    DoCmd.DeleteObject acTable, "import"
    End If

End Function